Ответы
Ответ дал:
0
Программа на Object Pascal:
uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.
uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад