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

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

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

Решите тремя способами:

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

var a,b,c:integer;
begin
    readln(a,b,c);
    if (a>b) and (a>c) then
        write(a);
    if (b>a) and (b>c) then
        write(b)
    else
        write(c)
end.

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

var a,b,c:integer;
begin
    readln(a,b,c);
    if (a>b) then
        if (a>c) then
            write(a)
    else
        write(c);
    if (b>a) then
        if (b>c) then
            write(b)
    else
        write(c)
end.

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

var a,b,c,d:integer;
begin
    readln(a,b,c);
    if (a>b) then
        d:=a
    else
        d:=b;
    if (d>c)then
        write(d)
   else
        write(c)
end.