Найти сумму четырехзначного числа на языке паскаль

Question

Информатика

Ария

26 февраля, 23:28

Найти сумму четырехзначного числа на языке паскаль

+1

Ответы (1)

Знаете ответ?

Захарьич · Answer 1

Program pro;

var k, a, sym:integer;

begin

readln (k) ;

while k>0 do

begin

a:=k mod 10;

sym:=sym+a;

k:=k div 10;

end;

writeln ('Сумма разрядов четырехзначного числа равна ', sym)

end.