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

Question

Информатика

Греция

4 июля, 23:42

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

+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.