Введите a,b,c,d. Найти количество четных из них. Решите задачку в паскале. Помогите пожалуйста, буду очень благодарен.
Ответ проверен экспертом
0/5 (0 оценок)
1
Wani4kaa 2 года назад
Светило науки - 56 ответов - 3711 раз оказано помощи

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.

DragonPrime 2 года назад

Большое спасибо. Немогли бы вы мне помочь ещё. Мне нужно ввести число и проверить есть ли введенное число кратным и 5 и 7. Также в паскале.

Wani4kaa 2 года назад

Задавайте вопрос для этого.

DragonPrime 2 года назад

У меня что - то не работает

Wani4kaa 2 года назад

Что конкретно?