Презентация на тему Цикл с параметром

21 до 210.
 
n:= 2;
while   do
begin
writeln(n);

n:= n * 2;
 
end;

k:= 1;

k <= 10

k:= k + 1

n:= 2;
for do
begin
writeln(n);
n:= n * 2
end;

k:= 1 to 10

1 do 
writeln(k*k);
downto
var k: integer;
целое
целое
шаг

«–1»

for i:= 1 to 10 do begin 
writeln(k*k);

end;

k:= 1;

k:= k + 2

которая вычисляет сумму:
а) первых

n натуральных чисел
б) квадратов первых n натуральных чисел;
в) всех четных чисел в диапазоне от 1 до n;
г) всех двухзначных чисел.

3. Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет среднее арифметическое.

2 до 1000.
для n от 2 до 1000

если число n простое то
writeln(n);

число n простое

нет делителей [2.. n-1]: проверка в цикле!

count:= 0;



if count = 0 then

writeln(n)
end;

for k:= 2 to n-1 do
if n mod k = 0 then
count:= count + 1;

вложенный цикл

to i do
writeln(i, ' ', k);
1 1
2

1
2 2
3 1
3 2
3 3
4 1
4 2
4 3
4 4