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

Оцени ответ

Не устраивает ответ?

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

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

Недавние вопросы

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

Какое число нужно добавить к набору, чтобы среднее арифметическое увеличилось на 0,1? 1,1 –3 2,7 –4,1 2,4 3,9 –0,9

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

⦁Дайте определение термину «информация». Укажите классификацию информации по форме представления. ⦁Что такое код? Приведите примеры кодов, с которым вы постоянно...

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

Сканируется цветное изображение размером 15,24×15,24 см. Разрешающая способность сканера — 600×1200 dpi, глубина цвета — 24 бита. Какой информационный объём будет иметь...

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

Помогите пожалуйста, буду очень благодарен ! Надо написать программу на языке Паскаля. Спортсменам фигуристам шесть судей выставляют оценки. Технический работник соревнований изымает максимальную и...

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

Электронная таблица-это а)прикладная программа,предназначенная для обработки структурных в виде табличных данных б)прикладная программа для обработки кодовых таблиц в)устройство ПК,управляющее его...

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

Выбрать правельный ответ.....Электронная таблица-это а)прикладная программа,предназначенная для обработки структурных в виде табличных данных б)прикладная программа для обработки кодовых таблиц ...

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

По нескольким определениям отгадайте термин информатики Текстовое,числовое,денежное,ключевое,логическое - Ответ записать в именительном падеже единственном числе

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

Приведите примеры известного вам программного обеспечения компьютера. программное обеспечение - игра, пример - ?

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

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

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

Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль

Другие вопросы в категории Информатика

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

Даны два целых числа х и у. Составьте программу которая вычисляет значение выражения sqr(x) - 6 sqr(y) +2(x-y). И выводит на экран значение увеличенная в 100 раз. Помогите пожалуйста

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

Какой символ имеет 89 в кодировке ASCII

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

Даны два целых числа х и у. Составьте программу которая вычисляет значение выражения sqr(x) - 6 sqr(y) +2(x-y). И выводит на экран значение увеличенная в 100 раз. ВОТ С ЭТИМ ПРОБЛЕМА Помогите...

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

Написать программу, которая заполняет массив из 5 чисел случайными значениями от 1 до 6 и выводит минимальный элемент. Язык Паскаль.

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

Помогите пожалуйста 5)))

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

Начертить домик в кумире с помощью команды сместиться на вектор

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

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

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

ХЕЛП МИ. ТОЛЬКО ПРАВИЛЬНО

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

В этой задаче вы должны написать функцию void count_odd_even(int n, int *odd, int *even). Данная функция должна сохранять в переменную, которая лежит по указателю odd количество нечётных цифр числа,...

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

Помогите быстренька пожалуйста

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

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

1. Площадь параллелограмма АВСD равна 45. Найдите сторону ВС параллелограмма, если известно, что высота, проведенная к этой стороне, равна 5 . 2. Найдите медиану прямоугольного треугольника,...

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

Один з коренів рівняння x²+px+12=0 дорівнює -2 знайдіть p і другий корінь рівняння

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

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

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

В треугольнике ABC AB=7, BC=9, средняя линия, параллельная стороне АС, равна 4. Найдите периметр треугольника АВС

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

Объясните подробно, пожалуйста

Химия, опубликовано 13.06.2019

C4H9-C=O|O-CH3 Название этого вещ-ва

Химия, опубликовано 13.06.2019

!!!!!!ДАЮ 40 БАЛЛОВ!!!!! 1) С чем реагирует H2O? Составьте реакции. O2, Na, CaO, SO2, H2, Mg, Zn 2) При разложении перекиси водорода массой 40 г получили воду и газ. Найдите массу воды и объем газа....

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

Помогите пожалуйста решить, очень срочно надо

Физика, опубликовано 13.06.2019

Разноимённые электрические заряды притягиваются друг к другу вследствие того что

Право, опубликовано 13.06.2019

Проаналізуйте правову ситуацію і дайте відповіді на питання. Громадянин Петров (18 років) вирішив викрасти автомобіль. Він обрав автомобіль для викрадення, з'ясував режим дня його власника. Брат...

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

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

Русский язык, опубликовано 13.06.2019

Помогите сделать синтаксический разбор предложения.Хаджи Мурат, быстро прихватив ружье,вложил ногу в узкое стремя и, беззвучно, перекинувшись через лошадь, тело его очутилось на высокой подушке седла.

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

Розв'яжiть нерiвнiсть 8-x/3 >-2

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

Нужно написать формулу для решения в экселе

Физика, опубликовано 13.06.2019

Помогите пожалуйста решить задачуть! Очень срочно!!!! Начальное давление идеального газа равно 50 кПа. Каким стало давление газа, если средняя кинетическая энергия двидения его молекул уменьшилась в...