fkn+antitotal

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

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

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

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

Решение:

var i, a:integer;
begin
  writeln('vvedite a:');
  readln(a);
  for i:=35 to 117 do
    if ((i mod 3) = 0) AND ((i mod 2) = 1)  then
      write(i, ' ');
  readln();
end.

Консоль:
vvedite a:
50
39 45 51 57 63 69 75 81 87 93 99 105 111 117

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

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

Решение:

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

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

Решение:

Задача 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