Программа на языке Pascal. Компьютер в первую секунду печатает на экране число 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится...
Программа на языке Pascal.
Компьютер в первую секунду печатает на экране число 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы