⇢ Юл
Юля
Условные операторы. Из трех данных выбрать наименьшее и наибольшее.
надо сделать через паскаль
АН
Алексей Нестеров
x1,x2,x3
if x1 > x2 then begin
if x1 > x3 then x1
else x3
and
else then begin x2 > x3 then x2
else x3
and;
ЕЛ
Евгений Лайнопуло
var a,b,c,mn,mx:real;
begin
randomize;
a:=random; writeln('a=',a);
b:=random; writeln('b=',b);
c:=random; writeln('c=',c);
mn:=a;
mx:=a;
if b < mn then mn:=b else if b > mx then mx:=b;
if c < mn then mn:=c else if c > mx then mx:=c;
writeln('min=',mn,' max=',mx);
end.
Похожие вопросы