Вася написал такую программу (для удобства код приводится на трех языках программирования): 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 звездочек. какое наибольшее число могло быть написано вместо знака вопроса?

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

//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

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.