Технический форум - Помогите с задачей по паскалю

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с задачей по паскалю (http://www.tehnari.ru/f41/t42029/)

Дмитрий45

14.11.2010 13:15

Помогите с задачей по паскалю

Определить сумму цифр трёх значного числа . Вывести его на печать , если сумма больше или равна 11 , а в противном случае вывести сообщение " сумма цифр меньше 11"

shrek=)

14.11.2010 13:39

Ну как то так.

Код:

var

i,s,x:integer;

begin

writeln ('введите число');

readln (x);

s:=0;

while (x<>0) do begin

s:=s+(x mod 10);

x:=x div 10;

end;

if s>=11 then writeln ('сумма равна',s) else writeln ('сумма меньше 11');

readln

end.

Если не прав поправьте.

Дмитрий45

14.11.2010 14:18

s=>11 здесь ошибка

Vladimir_S

14.11.2010 14:27

Цитата:

Сообщение от Дмитрий45 (Сообщение 417727)

s=>11 здесь ошибка

Которую исправить Вы, разумеется, не в силах.
Ладно. Переставьте местами знаки ">" и "=", так, чтобы получилось s>=11.

Дмитрий45

14.11.2010 14:43

а блок схему не поможете нарисовать

shrek=)

14.11.2010 15:15

Вложений: 1

вот как-то так:

Дмитрий45

14.11.2010 16:50

С такой задачей не поможете . Дано натуральное число X . Вычислить (x-2)(x-4)....(x-64)/(x-1)(x-3)....(x-63). Если можно и блок схему

shrek=)

14.11.2010 17:07

Помочь то можно, но здесь помогают, а не делают работу за вас тем более задачи у вас не такие уж сложные, Вы выкладывайте свои наработки, а вам их подредактируют если что не так.

Часовой пояс GMT +4, время: 03:30.