fkn+antitotal

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

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