Помогите написать программу в Паскаль ABC

Question

Помогите написать программу в Паскаль ABC

Елена мисс Ученик (218), закрыт 4 года назад

В Паскаль ABC написать программу, которая фамилию имя и отчество преобразует в имя отчество и фамилию

Answer 1

var s,name,otch,fam:string;
i:integer;
begin
readln(s); //ФИО через пробел
i:=1;
fam:='';
name:='';
otch:='';
while (s[i]<>' ') do begin
fam:=fam+s[i];
i:=i+1;
end;
i:=i+1;
while (s[i]<>' ') do begin
name:=name+s[i];
i:=i+1;
end;
i:=i+1;
while (i<=length(s)) do begin
otch:=otch+s[i];
i:=i+1;
end;
writeln(name+' '+otch+' '+fam);
end.