Компьютер в первую секунду печатает на экране 1...

 Задание:

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

Решение на языке Паскаль

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