Составить программу, которая подсчитывает количество четных чисел,количество нечетных чисел, сумму и среднее арифметическое в последовательности которая закачивает 0
131
416
Ответы на вопрос:
Program n1; var a,kch,knc,k,sum: integer; begin write('введите 1 член последовательности: '); readln(a); knc: =0; sum: =0; kch: =0; k: =0; while a< > 0 do begin k: =k+1; if a mod 2=0 then kch: =kch+1 else knc: =knc+1; sum: =sum+a; write('введите следущий член: '); readln(a); end; writeln('сумма: ',sum); writeln('кол-во четных: ',kch); writeln('кол-во нечетных: ',knc); writeln('ср. арифмитическое: ',sum/k); end.
По формуле n=a^i, где n-количество исходов, a-мощность алфавита, i-количество позиций: у нас 2 типа флагов, 2 "символа", следовательно мощность алфавита = 2. всего показывают 5 флагов, количество позиций равно 5. 2^5=32 ответ: 32
Популярно: Информатика
-
nicoguy206.07.2020 04:06
-
XTreams23.04.2023 09:42
-
dashalev251002.04.2021 10:01
-
baryshnikova2026.08.2022 00:49
-
кирилл212702.10.2021 01:10
-
platonnikitos11.06.2021 21:28
-
hshndnsyub04.08.2022 10:36
-
помоги26918.02.2022 23:26
-
BlackGus00705.10.2022 12:57
-
KekLol8931.05.2021 17:28