Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 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.