Сделать из программы процедуру 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...
Сделать из программы процедуру
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.
Не нашли ответ?
Похожие вопросы