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 оставьте без изменений).
Создайте функцию, которая принимает на вход массив случайных чисел из диапазона [5..12]. Обходит этот массив и делает для каждого элемента следующее (пусть она оказывает побочный эффект прямо в своём теле): если это число равно 5 -- то выведете на экран строку "пять", если 6 -- то строку "шесть", если 7 то число "7", иначе -- строку "какое-то другое число".
Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием break;
Для прерывания работы цикла ипользуйте инструкцию break, например:
for i:=1 to len do // обходим последовательность
begin
if ((my_sequence[i] = stop_symb) then // если выполнено какое-то условие
break; // выходим из текущего цикла
end;