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

program project124;
var a,b:integer;
begin
  a:=35;
  b:=117;
  repeat
    if ((a mod 2)=0) and ((a mod 3)=0) and ((a mod 6)=0) then
      write(a,' ');
      a:=a+1;
  until (b<a);
  readln();
end.

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

program project123;
var a: char;
begin
  repeat
    writeln('Vvedite simvol');
    readln(a);
    if (a='#') then
      writeln('Konec')
    else
      writeln('&');
  until(a='#');
  readln();
end.

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

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

program Project121;
var i : integer;
begin
  i:=55;
  repeat
    write(i,' ');
    i := i + 1;
  until (i > 9236) ;
  readln();
end.

ФБН задачи 4, 5.

Выше мы рассмотрели пример, где выражение вида (только суммы):

2 + 5 + 4 и т.д

можно описать, используя рекурсивный подход:

<Cifra> ::= [0-9]
<CeloeChislo> ::= "0" | ([1-9] <Cifra>*)
<BinSumma> ::= <Summa> "+" <CeloeChislo> 
<Summa> ::=  <BinSumma> | <CeloeChislo>

Задача 4: Напишите ФБН для поддержки (помимо операции сложения) операций вычитания, умножения и деления:

Урок 13.1 задача 16

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:

Урок 13.1 задача 15

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      while(numb2<10)do
        begin
          numb2:=numb2+1;
          writeln(numb1*numb2,':',numb1,'=',((numb1*numb2)div numb1));
        end;
      writeln();
    end;
  readln();
end.

Урок 13.1 задача 14

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:

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

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      while(numb2<10)do
        begin
          numb2:=numb2+1;
          writeln(numb1,'x',numb2,'=',numb1*numb2);
        end;
    end;
  readln();
end. 

Урок 13.1

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.

Вложенные циклы.

Урок 13.1

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.

Один цикл через mod.