fkn+antitotal

Задача 2 Урок 13

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

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

Задача 1 Урок 13

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

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

Задача 4 Урок 13.1

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

Задача 3 Урок 13.1

Выведите на экран таблицу умножения используя один цикл 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.    

Задача 2 Урок 13.1

Выведите на экран таблицу умножения используя только циклы вида 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.  

Задача 1 Урок 13.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.  

Задача 2 Урок 12.2

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

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

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

Задача 1 Урок 12.2

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

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

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

Задача 5 Урок 12

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

Задача 4 Урок 12

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

program lesson12_4;
var
  i: integer;
begin
    i := 35;
    repeat
        if (i mod 6 = 0) then
            write(i, ' ');
        i := i + 1;
	until i > 117;
    readln();
end.