Написать программу на pascal : с клавиатуры вводятся 10 произвольных целых чисел. необходимо подсчитать и вывести на экран кол-во четных и кол-во нечетных среди них
radacherepkova
2
08.10.2019 13:20
0
Другие вопросы по теме Информатика
MuertoLegend
10.02.2021 10:55
Alihan1970
10.02.2021 10:56
akmallobanov
10.02.2021 10:56
MaximRomanenko
21.09.2021 18:56
Moew
01.12.2020 14:39
sagynnn
01.12.2020 14:40
KolianN
01.12.2020 14:48
1615005296
01.12.2020 14:48
Pa3goJI6aù
01.12.2020 14:49
Популярные вопросы
- Найдите комплексное сопряжённые к числу z...
1 - 2. Обери зайве.А. Ебонітова паличка;В. Заряд;с. Перископ;D. Електроскоп....
1 - 1. Для функции у=f(x) найдите первообразную: a) f(x)=14 cosx+ 5x -23...
1 - Почему лёгкая атлетика считается одним из основных и наиболее массовых...
1 - Какой элемент образуется из 238 92 U при бомбардировке медленным нейтроном?...
3 - Дан куб ABCDA1B1C1D1 с длиной ребра 20 см. На рёбрах, выходящих из...
3 - У трикутнику ABC відомо, що кут C=90 градусів, AC =3 см, BC=4 см,...
2 - Нужно решить треугольник буду благодарен...
1 - Розв яжіть рівняння а) 3×=16-×,б) - 2×+3=27+4×в)(3×-1)-(5×-3)=-2г)2...
1 - B) 8.1.3.1 8.3.3.1 Which of thejobs in the texts would/wouldn t you...
1
program n1;
var x, p, n, i:integer;
begin
p:=0;
n:=0;
for i:=1 to 10 do begin
readln(x);
if x mod 2=0 then p:=p+1 else n:=n+1;
end;
writeln ('Четных чисел ', p);
writeln ('Нечетных чисел ', n);
end.