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

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

Question

Информатика

Игнатий

16 мая, 11:23

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

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

+5

Ответы (1)

Знаете ответ?

Мастридия · Answer 1

program n1cel;

var

a, c:integer;

begin

a:=1;

c:=1;

while с mod 20090 do

begin

a:=a+1;

c:=c+11;

end;

writeln ('через ', a, ' секунд') ;

end.