Ответы
Ответ дал:
0
program asd;
var n,a,b:integer;
begin read(n);
a:=n;
while a>0 do begin
b:=a mod 10+b;
a:=a div 10;
end;
writeln(b);
end.
var n,a,b:integer;
begin read(n);
a:=n;
while a>0 do begin
b:=a mod 10+b;
a:=a div 10;
end;
writeln(b);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад