Дано пятизначное число. найти сумму его чисел Паскаль

Question

Информатика

Еняша

30 июня, 12:22

Дано пятизначное число. найти сумму его чисел Паскаль

+4

Ответы (1)

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

Владимира · Answer 1

Var x, s, i:integer; begin writeln ('введите число') ; readln (x) ; s:=0; while (x0) do begin s:=s + (x mod 10) ; x:=x div 10; end; writeln ('Сумма цифр числа = ', s) ; end.