Какую программу написать чтобы найти максимальное из чисел a, b, c? минимльное из чтырёх чисел?

Question

Информатика

Римуся

27 марта, 08:06

Какую программу написать чтобы найти максимальное из чисел a, b, c? минимльное из чтырёх чисел?

+3

Ответы (1)

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

Зиновия · Answer 1

Program abc;

var a, b, c, max: integer;

begin

read (a, b, c) ;

if a>b then

a:=max

else

b:=max;

if c>max then

c:=max;

writeln ('Максимальное число__', max) ;

end.

Второй в один вопрос еще)) 0).