Даны три числа. А, В, С. Целые, положительные. Вводятся пользователем, произвольно. Найти максимум и минимум. Вывести максимум и минимум.

Question

Информатика

Ванютя

2 августа, 10:41

Даны три числа. А, В, С. Целые, положительные. Вводятся пользователем, произвольно. Найти максимум и минимум. Вывести максимум и минимум.

+5

Ответы (1)

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

Гордей · Answer 1

Var a, b, c, min, max:integer;

begin

readln (a, b, c) ;

min:=a;

if b
if c
max:=a;

if b>max then max:=b;

if c>max then max:=c;

writeln ('min=', min) ;

writeln ('max=', max) ;

end.