Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Pascal

Question

Информатика

Маргоша

20 октября, 00:48

Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Pascal

+3

Ответы (1)

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

Луня · Answer 1

Var

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

Begin

Readln (a, b, c) ;

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (c>b) then max:=c;

if (a
if (b
if (c
Writeln ('Максимальное значение - ', max, 'Минимальное - ', min) ;

end.