Question

Напишите программы данные на фото

Answer 1

Ответ:

Var

mas[1..1000000] array of integer;

A, I:integer;

Begin

For i:=1 to mas.Lenght() do

If (mas[I] mod 12 = 0) then

A+=1;

End.