Паскаль! Очень срочно нужна помощь. Заранее большое спасибо.
Уровень с:
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
