Ответы
Ответ дал:
0
var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)
Ответ дал:
0
а можно ли через repeal until
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад