fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

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

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

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

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

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

.

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

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

var a, b: integer;
begin
    a := 5;
    b := 7;

    if (a > b) then
        writeln(a)
    else
        writeln(b);

    readln();
end. 

КОНСОЛЬ:

7

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

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

var a, b, c: integer;
begin
    a := 5;
    b := 5;
    c := 10;

    if ((a > 17) and (b > 17) and (c > 7)) then
        writeln('da')
    else
        writeln('net');

    readln;

end.

КОНСОЛЬ:

net