Программа на языке pascal. компьютер в первую секунду печатает на экране число 1, во вторую – число 12, в третью – число 23. то есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. в какую секунду впервые появится число, делящееся на 2009?
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.
Для начала, мы можем использовать цикл, чтобы перебирать числа, пока не найдем число, делящееся на 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.