Составить программу вывода n случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных
141
188
Ответы на вопрос:
Program gt; var a,l,k,n,i: integer; begin read(n); randomize; k: =0; l: =0; for i: =1 to n do begin a: =random(50); if(a mod 2=0)then k: =k+1 else l: =l+1; write(a,' '); end; writeln; writeln('четные=',k); writeln('не четные=',l); end.
Популярно: Информатика
-
merifai31.01.2023 05:12
-
JlU40K18.05.2022 03:11
-
ktoya206.04.2020 06:42
-
Shugyla201704.02.2020 01:58
-
xmaxim9920.03.2020 00:09
-
Metalmekid20.05.2020 01:09
-
ЦветокЛотоса19.05.2021 08:18
-
vovova202023.05.2020 08:51
-
SHiiimochka05.12.2022 07:31
-
lolkajoin30.11.2022 09:25