Ответы
Ответ дал:
0
program ppvschch;
uses
crt;
procedure summ(n: integer);
var
sum: integer;
begin
sum := 0;
while (n <> 0) do
begin
sum := sum + (n mod 10);
n := n div 10;
end;
writeln('Сумма цифр числа: ', sum);
end;
begin
summ(123);
readln;
end.
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад