Предмет: Информатика,
автор: selinger8zzz
Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение
В паскале
Ответы
Автор ответа:
0
Вроде так
if a>b then begin
min:=b;
end
else begin
min:=a;
end;
if c>min then begin
min:=min;
end
else begin
min:=c;
end;
writeln('Наименьшее число ',min);
if min<0 then begin
x:=(a+b+c);
end;
writeln ('Сумма' , x );
if min>0 then begin
x:=(a*b*c);
end;
writeln ('Произведение' , x ); end.
if a>b then begin
min:=b;
end
else begin
min:=a;
end;
if c>min then begin
min:=min;
end
else begin
min:=c;
end;
writeln('Наименьшее число ',min);
if min<0 then begin
x:=(a+b+c);
end;
writeln ('Сумма' , x );
if min>0 then begin
x:=(a*b*c);
end;
writeln ('Произведение' , x ); end.
Похожие вопросы
Предмет: Окружающий мир,
автор: varya62865
Предмет: Русский язык,
автор: marselyamaevvv
Предмет: Химия,
автор: lizardsgloshenskau
Предмет: Алгебра,
автор: nKrynka
Предмет: Химия,
автор: rinatvalyanik