Вопрос Помогите составить программу pascal

[saruman006]

Составить программу, которая в введенной строке меняет первые два символа, на последние два символа и выводит новую строку  pascal программа использует writeln, for,i, begin (Pascal abc)

 

[CatArmy]

Я недавно чат нашел, там много ребят, которые шарят за пк, телефоны и тд, может там ответят , только пробел убери в ссылке, а то майл ру банят, гады

t.m e/+9Q-ebz2e8NI4YjAy

 

[Владимир7887]

мне лень

 

[lamercom]

var str, newstr: string;
begin
newstr:='';
readln(str);
for var i:=1 to length(str) do begin
if i=1 then newstr:=newstr+str[length(str)-1]
else
if i=2 then newstr:=newstr+str[length(str)]
else
newstr:=newstr+str;
end;
writeln(newstr);
end.

 

[Николай2]

нет)