fkn+antitotal

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

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

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

var i, j: integer;
  begin
    i:=1;
    repeat
      j:=1;
      while j<10 do
        begin
          writeln(i,'x',j,'=',i*j);
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    until (i>9);
  readln()
  end.

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

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

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

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

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

var i, j: integer;
  begin
    i:=1;
    repeat
      j:=1;
      repeat
        writeln(i,'x',j,'=',i*j);
        j:=j+1;
      until (j>9);
      writeln();
      i:=i+1;
    until (i>9);
  readln()
  end. 

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

У вас есть программа, использующая цикл while:

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