Получив на вход число х , этот алгоритм печатает два числа а и b.скажите наибольшее из таких чисел х , при вводе которых алгоритм печатает сначала 2 потом 63 din x, a, b as integer input x a=0 : b=1 while x> 0 a=a+1 b=b*(x mod 10) x=x\10 wend print a print b

наибольшее двузначное число, произведение цифр равно 63

ответ: 97.

Var n,m,s,a,i,j: integer; begin s: =0; j: =0; write('n = '); read(n); write('m = '); read(m); for i: = 1 to n do     begin     a: =random(2001)-1000;     write(a,' ');     if a mod m = 0 then           begin           s: =s+a;           j: =j+1;           end;     end; writeln; if j=0 then write('чисел, кратных ',m,' нет') else write('среднее арифметическое чисел, кратных ',m,' = ',s/j); end.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =matrgen(n,n,(i,j)-> j=n-1-i? n-i: 0);   a.println(2) end. примеры n= 7   0  0  0  0  0  0  7   0  0  0  0  0  6  0   0  0  0  0  5  0  0   0  0  0  4  0  0  0   0  0  3  0  0  0  0   0  2  0  0  0  0  0   1  0  0  0  0  0  0 n= 12   0  0  0  0  0  0  0  0  0  0  0 12   0  0  0  0  0  0  0  0  0  0 11  0   0  0  0  0  0  0  0  0  0 10  0  0   0  0  0  0  0  0  0  0  9  0  0  0   0  0  0  0  0  0  0  8  0  0  0  0   0  0  0  0  0  0  7  0  0  0  0  0   0  0  0  0  0  6  0  0  0  0  0  0   0  0  0  0  5  0  0  0  0  0  0  0   0  0  0  4  0  0  0  0  0  0  0  0   0  0  3  0  0  0  0  0  0  0  0  0   0  2  0  0  0  0  0  0  0  0  0  0   1  0  0  0  0  0  0  0  0  0  0  0