Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

Question

Информатика

Леруся

23 августа, 21:22

Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

+3

Ответы (1)

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

Стелла · Answer 1

Function Max (a, b, c:integer) : integer;

Begin

if b > a then a:=b;

if c > a then a:=c;

result:=a;

End;

Var

a, b, c:integer;

Begin

Write ('Введите три числа: ') ; ReadLn (a, b, c) ;

Write ('Max = ', Max (a, b, c))

End.