fkn+antitotal

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

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

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

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

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

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

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

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

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

Задача 6 Часть2 Урок 9

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

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

Изучите код:

var s, t :integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Задача 11 Урок 9

Есть программа:

Задача 10 Урок 9

Есть программа:

Задача 9 Урок 9

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

Задача 8 Урок 9

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

Пользователь вводит два числа, найдите из них максимальное.

var
   a,b : integer;

begin
  writeln ('vvedite chislo A ');
  readln(a);
  writeln ('vvedite chislo B ');
  readln(b);
  if a>b then
     writeln ('bolshee chislo a= ',a)
  else
     writeln ('bolshee chislo b= ', b);
  readln();
end.