Помогите пожалуйста решить задачу по информатике 10 класс Дано натуральное число п. Определить: сумму цифр в числе
Помогите пожалуйста решить задачу по информатике 10 класс
Дано натуральное число п. Определить: сумму цифр в числе
Гость
Ответ(ы) на вопрос:
ГостьProgram prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Не нашли ответ?
Похожие вопросы