Как написать программу для сложения 5 чисел в Паскале?

Question

Информатика

Нила

10 марта, 12:19

Как написать программу для сложения 5 чисел в Паскале?

+1

Ответы (1)

Знаете ответ на вопрос?

Эдик · Answer 1

Var a, x:integer;

i, s:integer;

begin

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

readln (a) ;

x:=a;

s:=0;

while (x0) do

begin

s : = s + (x mod 10) ;

x : = x div 10;

end;

writeln ('Сумма цифр числа ', a,' = ', s) ;

end.