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

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

Найти нужный

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

Что такое массовость,детерминированность,приведите пример.... Помогите пожалуйста с решением...... 614000 бітів в байтах, кілобайтах, мегабайтах 524288 байтів в бітах, кілобайтах, мегабайтах 256 кілобайт в бітах, байтах, мегабайтах 4 мегабайта в б... Для хранения растрового изображения размером 640x480 пикселей без сжатия отвели 300 Кбайт памяти. Каково максимальное возможное число цветов в палитре... несжатое растровое изображение размером 128х128 пикс. занимает 2Кб. памяти. Каково максимально возможное число цветов в палитре изображения?...