В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
404678
404678
04.01.2021 15:17 •  Информатика

Программа на языке pascal. компьютер в первую секунду печатает на экране число 1, во вторую – число 12, в третью – число 23. то есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. в какую секунду впервые появится число, делящееся на 2009?

Показать ответ
Ответ:
15кк
15кк
05.10.2020 08:17

program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.

0,0(0 оценок)
Ответ:
amur3453
amur3453
18.01.2024 21:21
Хорошо, давай я помогу тебе решить эту задачу!

Для начала, мы можем использовать цикл, чтобы перебирать числа, пока не найдем число, делящееся на 2009. Наша задача состоит в том, чтобы найти такую секунду.

Чтобы найти это число, мы можем использовать следующий алгоритм:

1. Создаем переменную sec и присваиваем ей значение 1. В ней мы будем хранить количество секунд.

2. Создаем переменную number и присваиваем ей значение 1. Это будет первое число, которое появится на экране.

3. Входим в цикл, который будет выполняться до тех пор, пока number не станет делиться на 2009.

4. Внутри цикла увеличиваем sec на 1, чтобы перейти к следующей секунде.

5. Увеличиваем number на 11, чтобы получить следующее число.

6. Проверяем, делится ли number на 2009 без остатка. Если да, то выходим из цикла.

7. Печатаем sec на экране.

Вот как будет выглядеть код на языке Pascal:

```
program FindDivisibleBy2009;
var
sec, number: integer;
begin
sec := 1;
number := 1;

while number mod 2009 <> 0 do
begin
sec := sec + 1;
number := number + 11;
end;

writeln('Первое число, делящееся на 2009, появится в секунду:', sec);
end.
```

В результате выполнения этого кода на экране будет напечатана секунда, в которой появится первое число, делящееся на 2009.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота