fkn+antitotal

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
  a:=11;
  b:=10;
  if (a>b) then
    writeln('12');
  readln();
end.  

урок 9 задача 15

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

program U9z;

var a, b, c: integer;
  begin
    writeln('Введите три числа: ');
    readln(a,b,c);
    if (a>=b) and (a<c) or (a<=b) and (a>c) then
      writeln(a)
      else
        if (b>a) and (b<c) or (b<a) and (b>c) then
          writeln(b)
          else
            writeln(c);
    readln;
  end.                                      

урок 9 задача 10

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

урок 9 задача 9

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

program U9Z9;
var

урок 9 задача 8

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

С использованием логической операции and.

урок 9 задача 7

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

  begin
    writeln('vvedite pervoe chislo: ');
    readln(a);
    writeln('vvedite vtoroe chislo: ');
    readln(b);
    if (a>b) then
      writeln('pervoe > vtorogo')
    else
      writeln('vtoroe > pervogo');
    readln();

  end.

урок 9 задача 6

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

урок 9 задача 5

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

урок 9 задача 4

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

var
  m, n: real;
  begin
    writeln('vvedite dva chisla: ');
    readln(m, n);
    if (m > n) then
      writeln(12)
    else
      writeln(888);
   readln();
  end.          

урок 9 задача 3

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var i, n: integer;

begin

  writeln('vvedite dva chicla: ');
  readln(i, n);
  if (i > n) then
    writeln(12);
  readln();
end.