Задать вопрос
6 октября, 01:36

Сделать из программы процедуру

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.

+2
Ответы (1)
  1. 6 октября, 05:27
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сделать из программы процедуру pascal Program kokokoko; uses crt; var fr, frn, s1:string; i:integer; begin clrscr; writeln ('Vvedite ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы