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

Question

Информатика

Мартиниан

31 августа, 05:41

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

+4

Ответы (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.