Написать программу ( в 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

Решите дам 30 баллов

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

Решите дам 30 баллов

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

Решите дам 30 баллов

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

Решите дам 30 баллов

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

Решите дам 30 баллов

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

Математика, опубликовано 13.06.2019