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

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

Найти нужный

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

Для генерации случайного числа из интервала [0, 1] необходимо использовать выражение *один правильный ответ random(11) random(2) random(1... 2. Сравните (поставьте знак отношения): 3 байтах 24 бита 1 Кбайт + 9000 бит 1536 бит + 1,5 Кбайт 1536 бит + 1,5 Кбайт 8192 байта + 9 Кбайт 100 Кбайт +... В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: s:=&nb... Определите значение переменной b после выполнения фрагмента алгоритма записанного в виде блок-схемы... Сколько мегабайт информации содержит сообщение объемом 2^23 степени бит? Объясните, пожалуйста, как решать такие задачи?...