fkn+antitotal

Урок 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

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

Задача 5 Урок 12.1

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Задача 4 Урок 12.1

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program Variant2;
var a, b: integer;
begin
  b:= 35;
  repeat
    if ((b mod 3) = 0) or ((b mod 6) = 0) then
      write(b, ' ');
    b := b + 1;
  until (b = 118);

end.