Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных Входные данные: 10,14,50,25,17,0

Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 5.

Входные данные: 10,14,50,25,17,0

Выходные: 2

 

  • ой да, что может быть проще!)))
    напишу сам цикл и условие. кстати допиши, как задается последовательность - рандомно или с клавы, думаю последовательность лучше задать как массив. проще будет)))
    ниже условие проверки кратности и четности чисел. проверь обязательно, могу ошибится))

    begin
    clrscr;
    For i:= 1 to (кол-во чисел) do
    begin
    If (a mod 2 = 0) and (a mod 7 = 0) then
    k:=k+1;
    end;

    вроде вот и все))

  • var
    a: array[1..9999] of integer;
    i,n,b: integer;
    begin
    write('Кол-во чисел: '); readln(n);
    for i:=1 to n do
    begin
    write(i, ' число = ');
    readln(a[i]);
    if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then inc(b);
    end;
    writeln('Кол-во четных чисел, кратных 5: ', b);
    end.