11 июля, 03:06

1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных?

2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько чисел в этой последовательности.

0
Ответы (1)
  1. 11 июля, 04:18
    0
    Var n, i, a, k: integer;

    begin

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

    readln (n);

    for i : = 1 to n do

    begin

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

    readln (a);

    if a mod 2 = 0 then k:=k+1;

    end;

    writeln ('Количество чётных чисел: ', k)

    end.

    var a, k:integer;

    begin

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

    readln (a);

    while a0 do

    begin

    k:=k+1;

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

    readln (a)

    end;

    writeln ('Количество чисел в последовательности: ', k)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных? 2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы