Var n:integer;
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.
Пример:
N (1..99) = 46
сорок шесть
328грам смолы осядет в лёгких
==== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Количество строк и столбцов:');
var X := MatrRandom(m, n, -99, 99);
Writeln('Массив Х');
X.Println(6);
var Y := MatrRandom(m, n, -99, 99);
Writeln('Массив Y');
Y.Println(6);
Writeln('Массив результатов');
var Z := new real[m, n];
for var i := 0 to m - 1 do
for var j := 0 to n - 1 do
Z[i,j] := (X[i,j] + Y[i,j]) / 2;
Z.Println(6,1);
Println('Произведение средних равно', Z.ElementsByRow.Product)
end.
В семиричной системе максимальное двухзначное число равно 7²-1, т.е.. 48.
В шестиричной системе минимальное трехзначное число равно 6², т.е. 36.
Отсюда получаем условие 36≤n≤48
В одиннадцатиричной системе в этот диапазон попадают числа от 11х3+3=36 до 11х4+4=48. Но, поскольку число в этой системе должно оканчиваться двойкой, нам подходит вариант 11х4+2=46
46₁₀ = 42₁₁ = 64₇ = 114₆