Решить : ) даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз
110
139
Ответы на вопрос:
Прошу. program by_relhem; var a,b,c: integer; d: real; begin writeln ('введите да числа, разделяя их пробелом'); read (a,b); c: =(a*b); if c< 0 then d: =c*2 else d: =c/1.5; writeln ('ваш ответ: ',d); end.
Популярно: Информатика
-
romka199811p0bu1825.03.2020 17:29
-
i94262727.01.2022 23:37
-
ева51403.06.2023 06:48
-
vaki325.05.2022 08:10
-
pinksuuun03.06.2021 22:23
-
aaalex0209.08.2021 21:52
-
Stasikone27.01.2022 22:44
-
dron113119.04.2022 10:48
-
милана3631.12.2020 20:47
-
UlianaTir28.08.2022 09:57