Задача 1 Урок 10.2

Задача 1 урок 10.2

Модицифируйте код:

var i:integer;
begin
    for i:=1 to 10 do
    begin
        writeln(777);
        break;
    end;
    readln();
end.     

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

program z1;
var i:integer;
begin
    for i:=1 to 10 do
    begin
        if (i=4) then
            writeln(777);
        if (i=5) then
            break;
    end;
    readln();
end.   
vedro-compota's picture


  if (i=4) then
            writeln(777);
        if (i=5) then
            break;

-- оптимизировать число сравнений

_____________
матфак вгу и остальная классика =)

program z1;
var i:integer;
begin
    for i:=1 to 10 do
    begin
        if (i=4) then
        begin
            writeln(777);
            continue;
        end;
        if (i=5) then
            break;
    end;
    readln();
end.

program z1;
var i:integer;
begin
    for i:=1 to 10 do
    begin
        if (i=4) then
        begin
            writeln(777);
        end
        else
            if (i=5) then
                break;
    end;
    readln();
end.