Написать программу ( в 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.
Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 18.06.2019
Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль
Информатика, опубликовано 18.06.2019
Информатика, опубликовано 18.06.2019
Задано два целых числа А и В найдите сумму ничетных чиселот А до В
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Вычислить y= │x-2│ по определению модуля на PascalABC и C++ Заранее спасибо!
Информатика, опубликовано 13.06.2019
Сделать ложные высказывания истинными: вид алгоритма зависит от его представления
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Запиши число 12661 в развёрнутом виде, начиная со старшего разряда.
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Математика, опубликовано 13.06.2019
Физика, опубликовано 13.06.2019
В цепи Е1= 130 В; Е2 = 85 В; R1= R3 = 20 Ом; R2= 40 Ом; r1 = r2 = 0. Определить токи в ветвях.
Русский язык, опубликовано 13.06.2019
Физика, опубликовано 13.06.2019
Русский язык, опубликовано 13.06.2019
Химия, опубликовано 13.06.2019
Напишите структурные формулы 1) 2,3-диметил-3-этилпентен-1; 2)2-метил-5-этилгексадиен-2,3
Математика, опубликовано 13.06.2019
Допоможіть будь ласка ! Потрібно знайти не визначений інтеграл
Математика, опубликовано 13.06.2019
Другие предметы, опубликовано 13.06.2019
Математика, опубликовано 13.06.2019
Найти первообразную функции f(x)=3x^2-x,график которой проходит в через точку (2;8)
Русский язык, опубликовано 13.06.2019
Нужна ли запятая после "Когда-то", если оно стоит в начале предложения?