Ответы на вопрос:
1)var a: integer; begin write('введите число'); read(a); if (a> 1) then a: =a+1 else a: =a-2; write(a); end.2) var a,b: integer; begin readln(a,b); if a*b< 0 then writeln(-2*a*b) else writeln(1.5*a*b); end. думаю так.не судите если не так: (ну а блок-схему сами..
Популярно: Информатика
-
Аврoра01.11.2022 10:25
-
VerochkaL86V19.05.2023 22:47
-
ggimat20307.06.2020 17:53
-
ankaschamina2022.01.2022 19:05
-
HorseOfDeath24.04.2022 00:27
-
danil20080404.04.2023 07:11
-
DARINASTAR9814.08.2020 01:34
-
levonaleqsanya29.11.2020 01:10
-
jandar20010.04.2021 11:26
-
Dimaj25.04.2021 11:46