Ответы на вопрос:
Var a,k1,k2: integer; begin k1: =0; k2: =0; repeat write('a = '); readln(a); if a> 0 then k1: =k1+1 else if a< 0 then k2: =k2+1; until a=0; writeln('k1 = ',k1,' k2 = ',k2); end. пример: a = 1 a = 5 a = 6 a = -3 a = 8 a = -2 a = 0 k1 = 4 k2 = 2
Популярно: Информатика
-
Гыгыгы1429.10.2021 07:29
-
Юлька648826203.08.2020 01:02
-
kknopcka31.01.2021 12:07
-
zharkovaaa113311.06.2020 06:08
-
Lenchik63299204.09.2021 21:16
-
melisonpolina17.08.2022 13:43
-
Sveto4ka34219.05.2020 05:21
-
КлешВова05.07.2020 08:25
-
RRuslan61929.01.2022 21:43
-
cabans35413.12.2020 18:09