fkn+antitotal

Урок 11. Задача 16.

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 11. Задача 15.

Урок 11. Задача 14.

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Вспомогательная задача (сдавать не обязательно):
Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 11 15 19 23 27 31 35 39 43

var i:integer;
begin
 for i:=1 to 44 do
  begin
   if ((i mod 4)=1) then
   writeln(i)
  end;
 readln();
end.               

Задача 2 Урок 13.1

ыведите на экран таблицу умножения используя только циклы вида while.

program Variant2;
var b, i: integer;
begin
  b:= 1;
  i:= 1;
  while (b < 10) do
  begin
    while (i < 10) do
    begin
      writeln(b, 'x', i, ' = ', b * i);
      i:= i + 1;
    end;
    writeln();
    i:= 1;
    b:= b + 1;
  end;
end.   

Задача 1 Урок 13.1

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
?
1
2
3

1x1 = 1
1x2 = 2
......

program Variant2;
var b, i: integer;
begin
  b:= 1;
  i:= 1;
  repeat
    repeat
      writeln(b, 'x', i, ' = ', b * i);
      i:= i + 1;
    until (i = 10);
    writeln();
    i:= 1;
    b:= b + 1;

  until (b = 10);
end.

Задача 3 Урок 12.2

Задача 2 Урок 12.2

Вспомогательная задача (сдавать не обязательно):

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

Задача 1 Урок 12.2

Имеется программа: