fkn+antitotal

Задача 3 Урок 10.1:

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

Решение:

var i: integer;
begin
  for i:=35 to 64 do
    if ((i mod 2) = 0) then
     write(i, ' ');
  readln();
end.  

Консоль:
36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

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

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

Урок 13.1. Задача 1.

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

var i, j: integer;

begin
  j := 1;
  while (j <= 10) do
    begin
      i := 1;
      repeat
        writeln(j, ' x ', i, ' = ', j * i);
        i := i + 1;
      until (i > 10);
      j := j + 1;
    end;
  readln();
end.

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

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

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

Урок 13.1. Задача 1.

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

var i, j: integer;

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

Урок 12.2. Задача 3.

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;
readln();
end.
Объясните что делает эта программа (что будет выведено на экран и почему)
Перепишите её с помощью цикла repeat/until
Перепишите её с помощью цикла for

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

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:
1 5 9 13 17 21 25 29 33 37 41 45

var i, a : integer;

begin
  a := 1;
  for i := a to 12 do
    begin
      write(a, ' ');
      a := a + 4;
    end;
  readln();
end. 

Задача 2 Урок 10.1:

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

1
2
3
5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

Задача 1 Урок 10.1:

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

Решение:

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