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

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

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

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
Указание: Сначала посрайтесь написать все три решения самостоятельно (по 20 минут размышления на каждую задачу хотя бы), если не получается (или после решения) также можно посмотреть это видео-пояснение(link is external).

program z61;
var a, b, c : integer;
begin
    writeln ('vvedite tri chisla:');
    readln (a, b, c);
    if (a>b)and(a>c) then
        writeln(a);
    if (b>c) and (b>a) then
         writeln(b);
    if (c>a) and (c>b) then
        writeln(c);
     readln();
end.

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

program z63;
var a, b, c , max: integer;
begin
    writeln ('vvedite tri chisla:');
    readln (a, b, c);
    max:=a;
    if (max>b) then
        max:=a
    else
        max:=b;
    if (max>c) then
        writeln(max)
    else
        writeln(c);
    readln();
end.