Предмет: Информатика, автор: lolkekarbidolpro

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

Приложения:

Ответы

Автор ответа: HardAli

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.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Математика, автор: lifezara734

15. В трёх ящиках было 66,5 кг яблок. В первом и втором ящиках было 45 целые 2/3 кг, а во втором и третьем ящиках - 38 целые 5/6 кг яблок. Сколько килограммов яблок во втором ящике?
А)14 кг
Б)15 кг
В)16 кг
С)18 кг

2 года назад

Предмет: Алгебра, автор: evakuguk67

Знайти число, якщо

1/2,його дорівнює 8.
Збільшити на 1/4
число 1/4

.

2 года назад

Предмет: Английский язык, автор: MrLukes

Переклади дієслово у дужках . Зміни на запитання та заперечення .
1. He ( живе ) in Ukraine .
2. I ( читаю ) every day .
3. We ( розмовляємо ) English .
4. Olena ( танцює ) very well .
5. Sashko and Roman ( гpaють ) chess .
6. My sister ( xодить ) to school .
7. His mother ( готує , варить ) well .
8. We usually ( pобимо ) homework at school
9. This boy ( малює фарбами ) every day .
10. These cats ( гpаються ) with balls .
11. Children ( xодять ) to school .
12. My friends ( дивиться ) TV еvery day .
13. You ( xодите ) for a walk on Sundays .
14. I always ( cлyxaю ) to you .
15. He often ( миє ) his hands .

2 года назад

Предмет: Математика, автор: azsxdff

помогите решить (0,4x-3)(9-0,45x)=0

8 лет назад

Предмет: Математика, автор: Виолетта2836

56t=58
Решите уровнение.

8 лет назад