Ответы на вопрос:
Ну вот тебе внутренняя часть проги: k: =0; while k< =n do beginif x mod 2=0 then a: =a+1 else s: =s+1k: =k+1end; writeln('кол-во четных= ', a, ' кол-во нечетных = ',s)
Популярно: Информатика
-
Filka703.05.2021 09:04
-
яннис102.02.2022 08:49
-
Den737306.07.2020 21:25
-
osokina7831.01.2020 17:03
-
BackspaceAlt06.04.2021 15:21
-
lemarakurtazhiv22.01.2023 04:17
-
Gavrik201717.03.2023 12:29
-
samigyllin23.09.2020 15:39
-
Анастасия7382923728.12.2022 21:01
-
minipersik0204.07.2021 19:22