fkn+antitotal

Урок 13.1

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

var i, j: integer;

begin
  i := 1;
  j := 1;

  repeat

    repeat

      writeln(i, ' x ', j, ' = ', i*j);
      j := j + 1;

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

end. 

КОНСОЛЬ

Урок 12.2

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

var
   i: integer;
begin
  i:=1;

  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Перепешите её с помощью цикла for

var  i: integer;
begin
 
  for i:=1 to 100 do
  begin
  
    if (((i+1) mod 5) = 2) then
      write(i, ' ');
      
  end;
  
  readln();
end.

КОНСОЛЬ

Урок 12.2

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

var
   i: integer;
begin
  i:=1;

  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Перепешите её с помощью цикла repeat/until

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

КОНСОЛЬ

Урок 12.2

Имеется программа:

var i: integer;
begin

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

Перепишите её, используя цикл repeat/until.

var i: integer;

begin
i := 5;

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

КОНСОЛЬ

5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 

Урок 12.2

Имеется программа:

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. 

КОНСОЛЬ

5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

http://fkn.ktu10.com/?q=node/8674

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

http://fkn.ktu10.com/?q=node/8674

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

var a: integer;

begin
a := 35;

  repeat

    if ((a mod 2) = 0) and ((a mod 3) = 0) and ((a mod 6) = 0) then
      writeln(a);
    a := a + 1;
    
  until(a > 117);
  
end.

КОНСОЛЬ

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

http://fkn.ktu10.com/?q=node/8674

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

program Hello;
var a: char;

begin

  repeat
    writeln('Vvedite simvol');
    readln(a); 
    if a <> '&'then
      writeln('#');
  until(a = '&');

end.

КОНСОЛЬ

Vvedite simvol
15
#
Vvedite simvol
&

http://fkn.ktu10.com/?q=node/8674

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

http://fkn.ktu10.com/?q=node/8674

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

program Hello;
var i: integer;

begin
  i := 55;

  repeat
    writeln(i);
    i := i + 1;
  until (i > 9236);
  
end.