1. напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных семи и оканчивающихся на один количество не известно 2. напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных пяти и оканчивающийся на ноль.

1. program zz1;

var a, n, i, s:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим заданное n

read (n);

for i:=1 to n do

begin

read (a); / / вводим число последовательности

if (a mod 7 = 0) and (a mod 10 = 1) then s:=s+1;

end;

writeln ('количество чисел кратных семи и заканчивающихся на 1 = ', s); / / выводим ответ

end.

2. program zz1;

var a, n, i, s:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим заданное n

read (n);

for i:=1 to n do

begin

read (a); / / вводим число последовательности

if (a mod 5 = 0) and (a mod 10 = 0) then s:=s+1;

end;

writeln ('количество чисел кратных пяти и заканчивающихся на 0 = ', s); / / выводим ответ

end.