fkn+antitotal

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

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

var i,a:integer;

begin

  repeat
    writeln('Vvedite celoe chislo: ');
    readln(a);
    for i:=1 to a do
      if ((i mod 2=1)and(i mod 5=0)) then writeln(i,' ');
  until (a<1);
end.  

Консоль:

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

var i,j:integer;
begin
  i:=1;
  j:=1;
  while i<11 do
    begin
      repeat
        writeln(i,'*',j,'=',i*j);
        j:=j+1;
      until (j=11);
      i:=i+1;
      j:=1;
    end;
end. 

Консоль:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10...

Как устанавливать плагины

См. инструкцию по установке

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

var i,j:integer;

begin
  i:=1;
  j:=1;
  while i<11 do
begin
  while j<11 do
    begin
      writeln(i,'*',j,'=',i*j);
      j:=j+1;
    end;
  j:=1;
  i:=i+1;
end;
end.  

Консоль:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
2*1=2
2*2=4
2*3=6
2*4=8...

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

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

Консоль:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10
2*6=12
2*7=14
2*8=16
2*9=18
2*10=20...

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99

var i:integer;
begin
  i:=35;
  repeat
    if(i mod 2=0)then write(i,' ')
    else
      if((i mod 21 =0)and(i>=45)and(i<=99))then write(i,' ');
    i:=i+1;
  until (i>117);
end.  

Консоль:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 63 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116 

Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117

var i:integer;

begin
  i:=35;
  repeat
    if(i mod 6 = 0) then write(i,' ');
    i:=i+1;
  until (i=117);
end.  

Консоль:

36 42 48 54 60 66 72 78 84 90 96 102 108 114 

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

var ch:char;
begin
  ch:='1';
  repeat
    writeln('Vvedite simvol: ');
    readln(ch);
    if(ch <> '#') then writeln('&')
    else break;
  until (ch='#');
end.  

Консоль:

Vvedite simvol: 
??

&
Vvedite simvol: 
s

&
Vvedite simvol: 
#

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