profile
Опубликовано - 1 месяц назад | По предмету Информатика | автор Аноним

Нужна помощь по информатике. Задача: Написать программу вычислить произведение из двух наибольших введенных с клавиатуры

  1. Ответ
    Ответ дан Кириллов Максим
    Program proizvedenie_naibolshih;
    Var a, b, c, mult: integer;
    begin
    writeln('Введите три числа с клавиатуры');
    readln (a, b, c);
    begin;
    if (a > b) and (b > c)
    then mult := a * b;
    end;
    begin;
    if (a > b) and (b < c)
    then mult := a * c;
    end;
    begin;
    if (a < b) and (b < c)
    then mult := c * b;
    end;
    writeln (mult);
    end.
    Программа проверена в PascalABC
    0