Ввести 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

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

Найти нужный

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

На рисунке изображена схема дорог Н-ского района, кроме графа, представлена информация о протяженности дорог в виде таблицы. Таблицу и граф создавали... Укажите диапазон из 12 ячеек: D1:E12 B2:D12 A1:D3 B2:E3... Задание.Определить, сколько дней осталось от текущей даты до 31 декабря 2013 года: Для ввода сегодняшней даты используйте функцию СЕГОДНЯ (категория -... Может ли мошенничество быть электронным риском? 1.Да, так как часто мошенники для достижения своих целей прибегают к помощи технических средств 2.Нет... Сколько Бит содержится в одном Килобайте...