fkn+antitotal

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

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

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

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

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

var i,a: integer;
begin
  writeln('Vvedite a:');
  readln(a);
  if (a>100) then
    for i:=a downto 1 do
      write(i, ' ')
  else
    for i:=1 to a do
      write(i, ' ');
  readln();
end.

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

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

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

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

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

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.

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

Пользователь вводит 4 целых числа, выведите на экран те из первых трех чисел, которые делятся нацело на 4-е число

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

Пользователь вводит число, определите делится ли оно на 4

var a:integer;
begin
  writeln('vvedite chislo a');
  readln(a);
  if ((a mod 4) = 0) 
    writeln('delitca bez ostatka')
  else 
    writeln('ne delitca' );
  readln();
end.       

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

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

program  u131z1;
var a,i,j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
    begin
      write(i, '*', j, '= ', i*j, ' ');
      j:= j +1;
    end;
    until (j >9);
    i:=i + 1;
  until(i > 9);

  readln();
end.  

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

Сдавать/выладывать решение не обязательно:
Есть код:

var a,b : integer;
begin
a:=2;
b:=3;

readln();
end.
Если он отфроматирован неправильно - исправьте это, и объясните для себя почему нужно исправить именно так.

program  u82z2;
var a,b : integer;
begin
  a:=2;
  b:=3;

  readln();
end.