Введите a,b,c,d. найти количество четных из них. решите в паскале. , буду .
лилия371
3
02.10.2019 23:10
0
Другие вопросы по теме Информатика
kuzmichkinvale
25.02.2022 22:58
Лиза6327
25.02.2022 22:43
Sasha200420071982197
24.05.2019 15:00
prosto5297
26.02.2021 15:35
sveta7185684p0dufr
26.02.2021 15:35
kalinkamalinka369
26.02.2021 15:33
умно55567
03.12.2020 16:53
Alecsei278Z
03.12.2020 16:52
вира7
19.05.2021 18:42
Популярные вопросы
- Треугольник — прямоугольный, ∢ =60° и = 7 см. Вычисли стороны треугольника и радиус...
3 - Период полураспада углерода-14 равно T=5730 лет. Через сколько времени от 16 мг...
3 - Запишите словосочетания, раскрывая скобки (не)увидел лужи, увидимся когда(нибудь),...
2 - Как назывались три типа единицы налогооблажения-сохи...
2 - 15.nach... schule gehen wir zu dem stadion a)die b)das c)der...
2 - Решить неравенство : 2х -6. Изобразите множество его решений на координатной прямой....
1 - чем можете у меня последние...
1 - Установіть відповідність між зміною потенціальної й кінетичної енергії та прикладами...
2 - Люди если понимаете физику ...
3 - Климатические ресурсы – это ресурсы: Биотические Исчерпывающие восстанавливаемые...
3
var
a, b, c, d, k: longint;
begin
read(a, b, c, d);
k := 0;
if a mod 2 = 0 then k := k + 1;
if b mod 2 = 0 then k := k + 1;
if c mod 2 = 0 then k := k + 1;
if d mod 2 = 0 then k := k + 1;
writeln(k);
end.