Question

Вася написал такую программу (для удобства код приводится на трех языках программирования):

Python:

x = ?
while x < 98 or x % 9 == 0:
print('*')
x += 3

Pascal:

x := ?;
while (x < 98) or (x mod 9 = 0) do begin
writeln('*');
x := x + 3;
end;

C++:

x = ?;
while (x < 98 or x % 9 == 0){
cout << '*';
x += 3;
}

В результате ее работы было напечатано 36 звездочек. Какое наибольшее число могло быть написано вместо знака вопроса?

Answer 1

Полный код на паскале

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

var

   i: integer;

function f(x: integer): integer;

var

   count: integer;

begin

   count := 0;

   while (x < 98) or (x mod 9 = 0) do

   begin

       count := count + 1;

       x := x + 3;

   end;

   Result := count;

end;

begin

   for i := 1000000 downto -100000 do

       if f(i) = 36 then break;

   writeln(i);

end.

Ответ выдает -6