1) Напишите программу которая в последствии натуральных чисел определяет, находит сумму двузначных чисел не кратных 4. В последовательности обязательно имеется двузначное число не кратное 4.


Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.

Выход: Программа должна вывести одно число-кол-во нечётных чисел кратных 4.


2) Напишите программу которая в последствии натуральных чисел определяет, находит сумму двузначных чисел не кратных 7. В последовательности обязательно имеется двузначное число не кратное 7.


Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.

Выход: Программа должна вывести одно число-кол-во нечётных чисел кратных 7 .

1) Для четверки:program ryazantsev;var i,n,t,s:integer;begins:=0;readln(n);for i:=1 to n do beginreadln(t);if (t mod 4 <> 0) and (t in [10..99]) then s:=s+tend;writeln(s)end.2) Для семёрки:program ryazantsev;var i,n,t,s:integer;begins:=0;readln(n);for i:=1 to n do beginreadln(t);if (t mod 7 <> 0) and (t in [10..99]) then s:=s+tend;writeln(s)end.