Паскаль. Даны три действительных числа a, b, c. Присвоить программной переменной YMin значение min {a, b, c}.

Question

Информатика

Коляша

7 июня, 10:22

Паскаль. Даны три действительных числа a, b, c. Присвоить программной переменной YMin значение min {a, b, c}.

+4

Ответы (1)

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

Елисавета · Answer 1

Program min;

var

a, b, c, Ymin:integer;

begin

writeln ('Введите три числа : ') ;

readln (a, b, c) ;

if a>b then

Ymin:=b else Ymin:=a;

If b>c then

Ymin:=c else Ymin:=b;

If a>c then

Ymin:=c else Ymin:=a;

writeln ('Наименьшее значение = ', Ymin) ;

readln;

end.