fkn+antitotal

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

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

Задача 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 баллов в ходе соревнований. Если:
1. Сумма баллов Коли и Миши больше 20
2. Или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

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

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

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

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

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);

  if (a > b) then
    writeln('Число ', a, ' максимальное')
  else
    write('Число ', b, ' максимальное');

  readln();
end.    

Консоль:

Введите два целых числа:
5
3
Число 5 максимальное

Введите два целых числа:
4
6
Число 6 максимальное

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var a, b, c: integer;
begin
  writeln('Введите три целых числа: ');
  readln(a, b, c);

  if ((a > 17) and (b > 17) and (c > 7)) then
    writeln('Да')
  else
    writeln('Нет');

  readln();
end.   

Консоль: