Главная » Компьютер в первую секунду печатает на экране 1...
13:52

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


Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 191 | Добавил: Ученик | Рейтинг: 5.0/1