Ответы на вопрос:
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.
Популярно: Информатика
-
Задание на питоне Дано число n. Среди чисел 1, 1 + , 1 + + , . . . найдите первое,...
Arinkaah01.02.2020 21:40 -
Дискета объемом 1440 Кбайт весила 20 г. Сколько бы весил набор дискет, необходимый...
mozhnj04.10.2020 14:09 -
Python с обьяснением Написать программу которая проверяет попала ли заданная точка...
botanchik110.10.2022 22:55 -
Какое число параметров является достаточным, чтобы описать квадрат, находящийся...
kristinaлсп11.01.2020 06:02 -
Дано натуральное трехзначное число. Напишите программу, которая определяет: а) есть...
tagirova204.07.2022 05:34 -
Пример профессии,в которой основным видом деятельности является работа с информацией....
лооол1926.05.2022 20:42 -
Как найти число протонов электронов и нейтронов в 100гр nahco3...
KoTBPoccuu06.04.2022 04:21 -
Вбукете у колобка 54 цветка. из них 18 были ромашки, а остальные - васильки. во...
vuqaredilov200725.02.2022 21:01 -
Укажите последовательность событий при делении клетки печени животного...
klimkravcnko13.04.2020 12:03 -
Сравните стороны треугольника авс если угол а больше угла в а угол в меньше угла...
nasowmza21.04.2021 16:21