Цикл while Формат записи: while «условие» do «оператор» «оператор»
Заставим компьютер посчитать от 1 до 100, используя этот оператор цикла: program Schitalka; var i : integer; var i : integer;begin i := 1; i := 1; while i
Составим программу для вывода первых 10 положительных чётных чисел. program NaborChetnyxChisel; var i : integer; var i : integer;begin i := 2; i := 2; while i
Цикл repeat... until Формат записи: repeat «операторы» «операторы» until «условие выхода» until «условие выхода»
Составим ещё раз программу счёта от 1 до 100, используя теперь цикл repeat - until : program Schet_ot_1_do_100; var i : integer; var i : integer;begin i := 1 ; i := 1 ; repeat repeat writeln (i); writeln (i); i := i + 1 i := i + 1 until i > 100 until i > 100 end.
Самостоятельные задания Выполните каждое задание тремя способами, используя сначала цикл for, потом while, затем until. Дано число N. Вывести на экран N звёздочек в ряд. Дано число N. Вывести на экран N звёздочек в ряд. Вывести на экран все нечетные числа из интервала от 1 до 30. Вывести на экран все нечетные числа из интервала от 1 до 30. Вывести на экран нечетные числа от 1 до 30 в обратном порядке. Вывести на экран нечетные числа от 1 до 30 в обратном порядке. Найти сумму первых 10 чётных чисел. Найти сумму первых 10 чётных чисел. Найти кол-во двузначных чисел, у которых первая цифра больше второй. Найти кол-во двузначных чисел, у которых первая цифра больше второй. Найти произведение тех чисел от 1 до 50, которые кратны 17. Найти произведение тех чисел от 1 до 50, которые кратны 17.