Составьте программу для вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа.
Составьте программу для вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа.
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var
a: integer;
c: byte;
begin
readln(a);
c:=0;
while a <> 0 do begin
c:=c + a mod 10;
a:=a div 10;
end;
writeln('Summa: ', c);
end.
Не нашли ответ?
Похожие вопросы