1)вывевсти на экран все произведения n на m, m уменьшается каждый раз на 2 до 0. пример: ввод m: =10; n: =3; вывод 30 24 18 12 6 2) n меняется 2 до 7, на экран выводиться m, которое равно n+x. x вводиться с клавиатуры. пример: ввод x: =4; вывод 6 7 8 9 10 11

Общий вид цикла пока:

 

ПОКА <условие> ДЕЛАТЬ <действие>

 

Суть цикла:

Действие выполняется до тех пор, пока условие не станет ложным.

Пример:

А=1

ПОКА А<3  ДЕЛАТЬ А=А+1

 

Цикл закончится, когда переменная А станет равной 3.

 

Если условие изначально ложно, то цикл не выполнится ни разу.

Пример:

А=4

ПОКА  А<3  ДЕЛАТЬ  А=А+1

 

Цикл не выполнится ни разу и значение переменной А не измениться.

 

При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.

1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1. 
Var
  n:integer;
Begin
  Write('Введи число ');
  Readln(n);
  if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
  a,b:integer;
Begin
  Write('Введи числа ');
  Readln(a,b);
  if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
  n:integer;
Begin
  write('Введи двузначное число ');
  Readln(n);
  if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.