fkn+antitotal

Урок 10.1 Задача 6
http://fkn.ktu10.com/?q=node/8612:

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

var i:integer;
begin
  for i:=35 to 117 do // границы диапазона
    if ((i mod 2) = 1) AND ((i mod 3) = 0)  then // нечетные И делящиеся на 3 нацело
      write(i, ' ');
  readln();
end.
     

Вывод в консоли:

39 45 51 57 63 69 75 81 87 93 99 105 111 117

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

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

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

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

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

Выведите на экран, все четные числа от 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

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

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

Если первое больше второго то в порядке возрастания, пример консоли:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

var i: integer;
begin
  for i:=35 to 64 do
    write(i, ' '); // выводим значения счетчика через пробел
  readln();
end.  

Вывод в консоли:

35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64