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