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

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

Найти нужный

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

Выполнить перевод 24ТБ в гигабайты и мегабайты, с помощью Microsoft Excel. Помогите,пожалуйста.... Приведите примеры: а) образной информационной модели б) знаковой информационной модели в) смешанной информациооной модели... Установите соответствие между свойствами информации и их описаниями. Помогите! Очень нужно. Буду благодарна... Помогите, пожалуйста! Два игрока играют в следующую игру. Перед ними лежит куча из 6 камней. Игроки берут камни по очереди, за один ход можно взять 1,... ...