Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Сделать из программы процедуру
pascal
Program kokokoko;
uses crt;
var
fr,frn,s1:string;
i:integer;
begin
clrscr;
writeln(Vvedite frazu:);
readln(fr);
fr:=fr+ ;
While Pos( ,fr)>0 do
Begin
s1:=Copy(fr,1,Pos( ,fr)-1);
Delete(fr,1,Pos( ,fr));
Begin
frn:=-;
for i:=length(s1) downto 1 do frn:=frn+s1[i];
write(frn);
End;
End;
readkey;
end.

Ответ оставил Гость

Var fr,frn,s1:string; 

procedure StrSeq(var fr,frn,s1:string);
var i:integer;
begin;
fr:=fr+ ;
 While Pos( ,fr)>0 do
 Begin
 s1:=Copy(fr,1,Pos( ,fr)-1);
 Delete(fr,1,Pos( ,fr));
 Begin
 frn:=-;
 for i:=length(s1) downto 1 do
 frn:=frn+s1[i];
 write(frn);
 End;
 End;
end;

 begin
 writeln(Vvedite frazu:);
 readln(fr);
 StrSeq(fr,frn,s1);
end.