Найти максимальное из трех неравных чисел и присвоить ему имя max

Question

Информатика

Каллисфения

14 декабря, 12:18

Найти максимальное из трех неравных чисел и присвоить ему имя max

+2

Ответы (1)

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

Иоанн · Answer 1

Я так понимаю, мах слово - выводить на экран вместе с числом.

var a, b, c:integer;

begin

readln (a, b, c) ;

if (a>b) and (a>c) then write ('max = ', a)

else

if (b>a) and (b>c) then write ('max = ', b)

else write ('max = ', c) ;

end.