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

7

Объяснение:

k = 1        dat[1] = 12       12 > 12  (НЕТ)       m = 0

k = 2       dat[2] = 15      15 > 12  (ДА)         m = 1

k = 3       dat[3] = 17       17 > 12  (ДА)         m = 2

k = 4       dat[4] = 15       15 > 12  (ДА)        m = 3

k = 5       dat[5] = 14       14 > 12  (ДА)        m = 4

k = 6       dat[6] = 12       12 > 12  (НЕТ)      m = 4

k = 7       dat[7] = 10       10 > 12  (НЕТ)      m = 4

k = 8       dat[8] = 13       13 > 12  (ДА)        m = 5

k = 9       dat[9] = 14       14 > 12  (ДА)        m = 6

k = 10     dat[10] = 15       15 > 12  (ДА)        m = 7

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
  var m := Length(a, 0);
  var n := Length(a, 1);
  Result := new integer[n, m];
  for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
  end;
end;

begin
  var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
  var a :=MatrixRandom(n, n);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

  Println('поворот влево на 90 гр');
  var b := Transpose(a);
  b:=Transpose(b);
  b:=Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
  println;

  Println('поворот вправо на 90гр');
  b := Transpose(a);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
 println;

 Println('поворот на 180 гр');
  b := Transpose(a);
  b := Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.