Программа ** языке Pascal. Компьютер в первую секунду печатает ** экране число 1, во...

Question

Программа на языке Pascal.

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

Answer 1

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.