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

Question

Информатика

Рима

15 июня, 04:17

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

+4

Ответы (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.