1.составьте программу вычисления суммы цифр двузначного числа
2. составьте программу вычисления суммы цифр трёхзначного числа
2. составьте программу вычисления суммы цифр трёхзначного числа
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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