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

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

Найти нужный

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

Запишите IP- адрес из четырёх десятичных чисел в 32 - битовом виде : 1 ) 210.171.30.128; 2) 10.55.0.225.... Задание 3 Решите задачу: матричный принтер имеет скорость печати 512 бит в секунду. Сколько времени нужно затратить на рас-печатку 10 страниц, если ка... 1Составить программу определяющую, какая из двух фамилий длиннее. Фа- милии имеют разную д... Выберите примеры словесных моделей *несколько правильных ответов справочники химические формулы уравнения книги инструкции... Написать программу(Pascal), которая отыскивает все числа N, N<1000, которые яв- ляются квадратами-палиндромами. (Пример: 11^2=121,262^2=69696)....