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