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

Question

Информатика

Ария

7 июля, 09:20

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

+5

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