Program while_repeat_for;
var
i:array[0..2] of integer;
begin
i[1] := 1;
i[2] := 1;
while i[1]<=10 do //пока условие не станет ложным (11<=10)
begin
i[1] := i[1]+1;
end;
Writeln('Операция while выполнена ',i[1],' раз');
repeat
i[2]:= i[2]+1
until i[2]>=10;//пока условие не станет истинным (10<=10)
Writeln('Операция repeat выполнена ',i[2],' раз');
for i[0]:=1 to 10 do
Writeln('Операция repeat выполнена ',i[0],' раз');
end.
Ошибка встречано [ а ожидалось ;
var
i:array[0..2] of integer;
begin
i[1] := 1;
i[2] := 1;
while i[1]<=10 do //пока условие не станет ложным (11<=10)
begin
i[1] := i[1]+1;
end;
Writeln('Операция while выполнена ',i[1],' раз');
repeat
i[2]:= i[2]+1
until i[2]>=10;//пока условие не станет истинным (10<=10)
Writeln('Операция repeat выполнена ',i[2],' раз');
for i[0]:=1 to 10 do
Writeln('Операция repeat выполнена ',i[0],' раз');
end.
Ошибка встречано [ а ожидалось ;