Ввести 2 числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран?

1 ответ

Посмотреть ответы

Megamozg

2205

program test;
var a, b: integer;
begin
write('Enter two numbers: ');
readln(a, b);
if a*b < 0 then
writeln(a*b*(-2))
else
writeln(a*b*3);
readln;
end.

Хороший ответ

12 декабря 2022 20:07

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Дан текст, определите его информационный объём, если вес одного файла составляет 2 бита. Ответ запишите в байтах и расписать какими формулами решали.... Дисковод это устройство для... У Тани дома живут ёжики, и, чтобы не запутаться в порциях корма, она написала программу, которая рассчитывает, на сколько дней хватит еды и сколько ли... Сколько единиц в сумме чисел 10111^2 и 10^2?... Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи)....