Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Как слово "КОТ" превратить в "ТОК" в программе Паскаль?

Ответ оставил Гость

Program p1;
var s,s1:string;
i,n:integer;
begin
s:=КОТ;
n:=length(s);
writeln(s);
for i:=1 to n do s1:=s1+copy(s,n-i+1,1);
writeln(s1);
end.