Помогите решить пожалуйста:)Даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз
Помогите решить пожалуйста:)
Даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз
Гость
Ответ(ы) на вопрос:
ГостьПрошу.
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.
Не нашли ответ?
Похожие вопросы