fkn+antitotal

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

У вас есть три числа (три переменные) найдите их медиану.

var a,b,c: integer;
begin
   writeln('vvedite chisla a, b, c');
   readln(a,b,c);
   if a>b then
     if b>c then
        writeln(b)
     else if c>a then
        writeln (c)
          else
            writeln(a)
   else if b<c then
       writeln(b)
     else if c<a then
       writeln(c)
         else
            writeln(a);
   readln();
end.    

Задача 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
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

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

var A, B, C, D, max1, max2, max3, max : integer;
begin
  writeln('Vvedite chisla A B C D:');
  read(A, B, C, D);
  if (A > B) then
     max1 := A
  else
      max1 := B;
  if (max1 > C) then
     max2 := max1
  else
      max2 := C;
  if (max2 > D) then
     max3 := max2
  else
      max3 := D;
  max := max3;
  writeln('Maksimalnoe chislo: ', max);
  readln();
end.  

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

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

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

Задача 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, с сохранением той же логики работы программы.

Подсказки: