Как слово "КОТ" превратить в "ТОК" в программе Паскаль?
Как слово "КОТ" превратить в "ТОК" в программе Паскаль?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы