Введите a,b,c,d. Найти количество четных из них. Решите задачку в паскале. Помогите пожалуйста, буду очень благодарен.
Ответы на вопрос
Ответил DexelGamer
0
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
0
Большое спасибо. Немогли бы вы мне помочь ещё. Мне нужно ввести число и проверить есть ли введенное число кратным и 5 и 7. Также в паскале.
Ответил DexelGamer
0
Задавайте вопрос для этого.
Ответил DragonPrime
0
У меня что - то не работает
Ответил DexelGamer
0
Что конкретно?
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
7 лет назад
Математика,
7 лет назад
Литература,
9 лет назад