Варфоломей
6 год назад
ДАЮ 29 баллов. ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ и БЛОК-СХЕМУ:ввести целое число и найти сумму его цифр.
ОТВЕТЫ
Kaaplamab
Aug 5, 2019
Блок-схема - в прилагаемом файле. Программа:
var n,s:integer;
begin
write(n = );
readln(n);
n:=abs(n);s:=0;
while ngt;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 ngt;0 do begin s:=s+n mod 10;
n:=n div 10;
end;
writeln(s = ,s);
end.
Пример:
n = -62845
s = 25
1
Смежные вопросы:
