Ввести 2 числа Если их творение негативно, умножить его на 2

Ввести 2 числа Если их творение негативно, умножить его на 2 и вывести на экран, в неприятном случае прирастить его в 1,5 раза и вывести на экран

Задать свой вопрос
Лариса Щепегина
надобно?
1 ответ
Uses crt;
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (clt;0) then begin
c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт