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

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