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

Question

Информатика

Егоня

31 января, 19:03

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

+3

Ответы (1)

Знаете ответ?

Захарьич · Answer 1

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.