program qq; var i, i2, i3: integer; Begin for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; write(i,, i2,, i3, ); end; end. Вывести на экран квадраты и кубы целых чисел от 1 до 8

Ключевые слова while ( цикл-ПОКА) repeat (цикл-ДО) for (цикл с параметрами)

Общий вид оператора: whiledo while do Здесь: - логическое выражение; пока оно истинно, выполняется тело цикла; - простой или составной оператор, с помощью которого записано тело цикла. Тело цикла Условие да нет

Общий вид оператора: repeatuntil repeat until Здесь: ; ; … - операторы, образующие тело цикла; - логическое выражение; если оно ложно, то выполняется тело цикла. Тело цикла Условие да нет

Самое главное В языке Паскаль имеются три вида операторов цикла: while цикл-ПОКА) repeat (цикл-ДО) for ( цикл с параметром). Если число повторений тела цикла известно, то лучше воспользоваться оператором for ; в остальных случаях используются операторы whil e и repeat.

Вывести на экран квадраты всех натуральных чисел от 1 до 10 и найти их сумму. Решим эту задачу с использованием двух видов циклов С использованием цикла "До". Var i, i2, s : integer; Begin i:=1; s:=0; Repeat I2:= i * i; Write (i2, ); s:=s+i2; a:=a+1; Until i>10; Writeln(s=, s); End. С использованием цикла "Пока". Var i, i2,s : integer; Begin i:=1; s:=0; While i<=10 Do Begin i2:= i * i; Write (i2, ); s:=s + i2; i:= i +1 End; Writeln(s=, s); End.

Опорный конспект while (цикл-ПОКA) repeat (цикл-ДО) for (цикл с параметром). Число повторений цикла известно Число повторений цикла известно В языке Паскаль имеются три вида операторов цикла: Число повторений цикла неизвестно Число повторений цикла неизвестно

Напишите программу для решения следующей задачи: Вычислить на экран числа от 3 до 99, кратные 3 и найти их сумму. Домашнее задание: