Ответы
Ответ дал:
0
уровень с:
Program a;
var a,c:string; b:integer;
begin
readln(a);
for b:=length(a) downto 1 do
c:=c+a[b];
a:=c;
writeln(a);
end.
Program a;
var a,c:string; b:integer;
begin
readln(a);
for b:=length(a) downto 1 do
c:=c+a[b];
a:=c;
writeln(a);
end.
XEKER:
Написал бы и те 2, но с планшета даже не проверить,поэтому не могу
нужна функция (процедура), а это просто программа :(
Так просто добавь эту программу в функцию, в чём проблема?)
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
7 лет назад