Найти сумму четырехзначного числа на языке паскаль
Найти сумму четырехзначного числа на языке паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы