fkn+antitotal

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

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

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

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

var i: integer;
  begin
    i:=35;
    repeat
      if ((i>=45) and (i<=99))then
        if ((i mod 3)=0) then
          if ((i mod 7)=0) then
            if (not((i mod 2)=0)) then
              writeln(i);
      i:=i+1;
    until (i>117);
    readln();
  end.

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

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

var i: integer;
  begin
    i:=35;
    repeat
      if ((i mod 6)=0) then
      writeln(i);
      i:=i+1;
    until (i>117);
    readln();
  end.

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var i: char;
  begin
    readln(i);
    repeat
      writeln('&');
      readln(i);
    until (i='#');
    readln();
  end.

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

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

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

Выведите на экран, все числа от 55 до 9236.

var i:integer;
  begin
    i:=55;
    repeat
      writeln(i);
      i:=i+1;
    until (i>9236);

    readln();
  end.   

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

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

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

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

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

Урок 11 Задача 13

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке