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