Задать вопрос
12 мая, 03:39

Ребята, помогите с задачей! Надо ввести ее в pascal

Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел оканчивающих на 0 или 2

9 класс

+3
Ответы (1)
  1. 12 мая, 03:50
    0
    var n, i, a, k:integer;

    begin

    write ('Введите количество чисел: ');

    readln (n);

    writeln;

    for i: = 1 to n do

    begin

    write ('Введите число: ');

    readln (a);

    if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1

    end;

    writeln;

    writeln ('Кол-во четных чисел оканчивающих на 0 или 2: ', k);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Ребята, помогите с задачей! Надо ввести ее в pascal Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы