fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

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

Изучите код:

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

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

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

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

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

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

var A, B, C, D, Max: integer;
begin
  readln(A);
  readln(B);
  readln(C);
  readln(D);
  if (A>B) then
     Max:=A
  else
      Max:=B;
  if (C>Max) then
     Max:=C;
  if (D>Max) then
     Max:=D;
  writeln(Max);
  readln();
end.

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

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

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