Предмет: Информатика,
автор: lolkekarbidolpro
Напишите программы данные на фото
Приложения:
Ответы
Автор ответа:
0
Ответ:
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.
Интересные вопросы
Предмет: Математика,
автор: clubanonim193
Предмет: Математика,
автор: MGrigo
Предмет: Физика,
автор: somptueusement
Предмет: Математика,
автор: Иван00711
Предмет: Литература,
автор: Dobriyarbuz