fkn+antitotal

Урок 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) -- запомнив максимум из первых двух чисел в специальной переменной.

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

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

var A, B: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  if (A>B) then
     writeln(A);
  if (B>A) then
     writeln(B);
  if (A=B) then
     writeln('A=B');
  readln();
end.

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

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

var A, B, C: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  readln(C);
  if (A>17) then
     if (B>17) then
        if (C>7)then
           bool:=True
        else
            bool:=False
     else
         bool:=False
  else
  bool:=False;
  writeln(bool);
  readln();
end.

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

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

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var num1, num2 : integer;
begin
  writeln ('enter the first number');
  readln(num1);
  writeln ('enter the second number');
  readln(num2);
  if (num1>num2) then
     writeln ('12')
  else
      write ('888');
  readln();
end.