Label

@Tarus · Регистрация: 09.10.2011

Author24 — интернет-сервис помощи студентам

Помогите и ету задачу надо срочна а я немогу ето сделать, надо ету прогу о ето сделать с меткой
Label

Pascal

Program P\b;
Uses crt;
Var i:integer;
Prizv:string[15];
Begin
Writeln ('введите слово');
Readln(Prizv);
i:=0
Repeat
Writeln(Prizv);
i:=i+1;
Until i=5
End.

@Puporev · 29.01.2012, 11:53

Pascal

Program Pb;
Uses crt;
Var i:integer;
    Prizv:string[15];
    Label 1;
Begin
Writeln ('введите слово');
Readln(Prizv);
writeln;
i:=0;
1:begin
  i:=i+1;
  Writeln(Prizv);
  end;
if i<5 then goto 1;
End.

	29.01.2012, 11:53