Написать программу: из трех данных чисел (a, d и с) найьи максимальное и умньшить его на 5

Question

Информатика

Марьян

10 октября, 11:50

Написать программу: из трех данных чисел (a, d и с) найьи максимальное и умньшить его на 5

+4

Ответы (1)

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

Каллистрат · Answer 1

Var a, b, c: integer;

function max (a, b : integer) : integer;

begin

if a>b then max:=a

else max:=b;

end;

begin

readln (a, b, c) ;

writeln (max (max (a, b), c) - 5) ;

end.