Паскаль. Даны три действительных числа a,b,c. Присвоить программной переменной YMin значение min {a,b,c}.
Паскаль. Даны три действительных числа a,b,c. Присвоить программной переменной YMin значение min {a,b,c}.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы