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

Question

Информатика

Дениска

17 мая, 11:31

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

+2

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