Предмет: Информатика,
автор: quendelin
ДАЮ 29 баллов. ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ и БЛОК-СХЕМУ:ввести целое число и найти сумму его цифр.
Ответы
Автор ответа:
0
Блок-схема - в прилагаемом файле. Программа:
var n,s:integer;
begin
write('n = ');
readln(n);
n:=abs(n);s:=0;
while n>0 do begin s:=s+n mod 10;
n:=n div 10;
end;
writeln('s = ',s);
end.
Пример:
n = -62845
s = 25
var n,s:integer;
begin
write('n = ');
readln(n);
n:=abs(n);s:=0;
while n>0 do begin s:=s+n mod 10;
n:=n div 10;
end;
writeln('s = ',s);
end.
Пример:
n = -62845
s = 25
Приложения:
![](https://files.topotvet.com/i/cc3/cc3ed1770ae702786da3072ffbfc8f1b.png)
Похожие вопросы
Предмет: Математика,
автор: elvanqarayev76
Предмет: Литература,
автор: oksanakanadashp3fbsv
Предмет: Английский язык,
автор: Аноним
Предмет: Литература,
автор: Валерия20041
Предмет: Математика,
автор: KeNyTr