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

Question

Информатика

Аграфенка

10 марта, 11:18

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

+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.