Ответы
Ответ дал:
0
Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
While n > 0 do
Begin
Write(n mod 10);
n:=n div 10
End;
End.
n:integer;
Begin
Write('n = ');
ReadLn(n);
While n > 0 do
Begin
Write(n mod 10);
n:=n div 10
End;
End.
Ответ дал:
0
var
n:integer;
begin
readln(n);
writeln(ReverseString(n.ToString));
end.
n:integer;
begin
readln(n);
writeln(ReverseString(n.ToString));
end.
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад