Помогите пожалуйста решить задачу по информатике 10 класс
Дано натуральное число п. Определить: сумму цифр в числе
Дано натуральное число п. Определить: сумму цифр в числе
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.