/ Материалы / Язык программирования: Паскаль / Компьютер в первую секунду печатает на экране 1...

Компьютер в первую секунду печатает на экране 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.



Похожие материалы
К сожалению, похожего ничего не нашлось!
Поделитесь в социальных сетях

Мы Вконтакте

Наверх