Malatlich
5 год назад
Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение
В паскале
ОТВЕТЫ
Olovennikov
Aug 12, 2019
Вроде так
if agt;b then begin
min:=b;
end
else begin
min:=a;
end;
if cgt;min then begin
min:=min;
end
else begin
min:=c;
end;
writeln(Наименьшее число ,min);
if minlt;0 then begin
x:=(a+b+c);
end;
writeln (Сумма , x );
if mingt;0 then begin
x:=(a*b*c);
end;
writeln (Произведение , x ); end.
if agt;b then begin
min:=b;
end
else begin
min:=a;
end;
if cgt;min then begin
min:=min;
end
else begin
min:=c;
end;
writeln(Наименьшее число ,min);
if minlt;0 then begin
x:=(a+b+c);
end;
writeln (Сумма , x );
if mingt;0 then begin
x:=(a*b*c);
end;
writeln (Произведение , x ); end.
131
Смежные вопросы:
