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

Question

Информатика

Касьян

7 февраля, 00:44

Паскаль. Даны три действительных числа 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.