Написать в тетрадях программу для вычисления максимального и минимального элемента из трех введенных.

Question

Информатика

Иоланта

29 апреля, 12:50

Написать в тетрадях программу для вычисления максимального и минимального элемента из трех введенных.

+3

Ответы (1)

Знаете ответ на вопрос?

Славуся · Answer 1

Program suicide;

var

a, b, c:integer;

begin

writeln ('Введите три числа через пробел ') ;

readln (a, b, c) ;

if (a>b) and (a>c) then

writeln ('Наибольшее ', a)

else if (b>a) and (b>c) then

writeln ('Наибольшее ', b)

else writeln ('Наибольшее ', c) ;

readln;

end.