Ввести 2 числа. если их произведение отрицательно и четно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
179
241
Ответы на вопрос:
var num1,num2,check: integer; summ: real;
begin
readln(num1);
readln(num2);
summ: = num1 * num2;
check: = trunc(summ) mod 2;
if((summ< 0)and(check = 0)) then
summ*=-2
else
summ*=1.5;
writeln(summ);
end.
Оперативна пам'ять — швидкодійна комп'ютерна пам'ять, призначена для запису, зберігання та читання інформації у процесі її обробки. ... За необхідності, вміст пам'яті комп'ютера може бути переданий у вторинне сховище, за до технології управління пам'яттю під назвою «віртуальна пам'ять».
Популярно: Информатика
-
anastasia457120.03.2023 21:13
-
Семён322816.09.2020 14:40
-
tanyapolya76ovv7hr31.03.2022 08:09
-
miì0213.04.2020 09:42
-
Zhenya1212301.04.2022 23:21
-
saharok1607.04.2021 13:15
-
marina0710203.12.2020 19:47
-
Йфяалмглиоаиопр29.06.2020 09:14
-
dasa220816.09.2022 16:07
-
Huliganka300922.02.2020 12:51