Составить программу вычисления суммы цифр двухзначного числа "a".значение "а",введите с клавиатуры.! надо(буду вам признательна *_*

evabo00 evabo00    1   02.07.2019 15:30    0

Ответы
alena5378 alena5378  02.10.2020 18:32
Должно работать и для двухзначного и для 3ехзначного и для 99999значного
var
a,sum:integer;
begin
readln(a);
while a>0 do
begin
sum:=sum+a mod 10;
a:=a div  10;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
ivanovgeorg123георг ivanovgeorg123георг  02.10.2020 18:32
Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика