Написать программу в паскале: 1.удвоить заданное число, если оно положительное, утроить его, если оно отрицательно, и увеличит его на 1, если оно равно нулю.
149
283
Ответы на вопрос:
Var a: real; begin readln(a); if a> 0 then a: =a*2; if a< 0 then a: =a*3; if a=0 then a: =a+1; writeln(a) end.
Популярно: Информатика
-
Alex979806.02.2020 05:17
-
ulpan04112.08.2022 19:54
-
Egorkalyadov0324.09.2021 15:51
-
Alik201702.12.2022 06:49
-
Lemnik09.09.2022 03:07
-
vadimbukov27.05.2020 21:19
-
21VR29.07.2022 08:02
-
яна15с11.01.2022 01:46
-
boglaevab27.08.2022 04:17
-
AndreyDixord13.02.2023 03:08