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

Question

Информатика

Аленка

20 ноября, 03:47

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

+4

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