Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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