Question

помогите решить пожалуйста:)
Даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз

Answer 1

Прошу.

program by_Relhem;
var
a,b,c:integer;
d:real;
begin
writeln ('Введите да числа, разделяя их пробелом');
read (a,b);
c:=(a*b);
if c<0 then d:=c*2 else d:=c/1.5;
writeln ('Ваш ответ: ',d);
end.

Answer 2

спасибо большое:)

Answer 3

Не стоит :)

Answer 4

хахах ну ладно)