Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

1.составьте программу вычисления суммы цифр двузначного числа
2. составьте программу вычисления суммы цифр трёхзначного числа

Ответ оставил Гость

Program znanija;
var a,s:integer;
begin
Read(a);
while a<>0 do 
begin   
s:= s + a mod 10;   
a:= a div 10 
end;
writeln(s);
end.

Работает для многозначных цифр не превышающих integer