Предмет: Информатика,
автор: Аноним
Как на Pascal ABC написать программу, которая будет считать сумму цифр числа, введенного с клавиатуры?
Количество цифр в числе неизвестно! Число целое. Очень желательно с объяснениями (вне программы). Заранее спасибо!!!
P.S. Я дам 15 баллов! Очень нужно!!!
Ответы
Автор ответа:
0
program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
если что то не понятно просто спроси и я обьясню :)
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
если что то не понятно просто спроси и я обьясню :)
Интересные вопросы
Предмет: Английский язык,
автор: fbyrxb
Предмет: Информатика,
автор: ArsenySheikin
Предмет: Химия,
автор: husanbiba
Предмет: Физика,
автор: Dageras