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

[Дмитрий45]

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

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

 

[shrek=)]

Ну как то так.

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]

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

 

[Vladimir_S]

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

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

 

[Дмитрий45]

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

 

[shrek=)]

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

 

[Дмитрий45]

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

 

[shrek=)]

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