fkn+antitotal

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

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

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

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

var i, j: integer;
begin
  i := 1;
  repeat 
    j := 1;
   
      write(i, '*', j, '=', i*j, '   ');
        j:=j+1;
      until (j>9);

    writeln();
    i:=i+1;  
  until (i > 9); 

  readln();
end.

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Вариант 1.
Используем цикл REPEAT/UNTIL

begin
  i := 1;
  repeat
    write(i, ' ');
    i := i + 5;
  until (i >100);
  readln();
end.

Вариант 2.
Используем цикл FOR

var i: integer;
begin

for i:=5 to 34 do
write(i, ' ');

readln();
end.
Перепишите её, используя цикл while.

var i: integer;
begin
i := 5; 
 
  while i <= 34 do
  begin
    write(i, ' ');
    i := i + 1;
  end;
  
  readln();
end.

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

program project125;
var a: integer;
begin
  a:= 35;
  repeat
    if ((a mod 2)=0) or ((a mod 2)=1) and ((a mod 3)=0)
    and ((a mod 3)=0) and (a>44) and (a<100) then
      write(a, ' ');
      a:=a+1
  until (a>117) ;
  readln();
end.

Решите с помощью цикла 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), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
  readln (a);
  b:='#';
  if a=b then break
  else
  writeln ('&');
  until (a=b);
end.

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

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f > 1 then
    begin
      if f mod 23 = 0 then
        repeat
          writeln(f)
        until (f = 1);
    end
  else
   writeln('ошибка');
 
  readln();
end.

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

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

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

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