Написать программу ( в Pascal abc): Вводится 3 целых числа. Сколько среди них будет чётных чисел, оканчивающихся на 8


Var a:array [0..5] of Integer; n,h,i:Integer;
begin
h:=0;
for i:=0 to 5 do
Readln(a[i]);
for i:=0 to 5 do
if (a[i] mod 2=0) and (a[i] mod 10=8) then
Inc(h);
Writeln(h);
readln;
end.

Оцени ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика

Информатика, опубликовано 13.06.2019

Помогите люди добрые

Вопросы из других категорий

Геометрия, опубликовано 13.06.2019

Помогите ПОЖАЛУЙСТА

Алгебра, опубликовано 13.06.2019

Решите уравнение x^3+3x^2=4x+12