Предмет: Информатика,
автор: lizaandreeva191
Паскаль! Очень срочно нужна помощь. Заранее большое спасибо.
Приложения:
Ответы
Автор ответа:
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, но с планшета даже не проверить,поэтому не могу
нужна функция (процедура), а это просто программа :(
Так просто добавь эту программу в функцию, в чём проблема?)
Интересные вопросы
Предмет: Английский язык,
автор: HigherGodd
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: 3578881
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: mrnoob666