Uses crt; var a: array[1..5, 1..5] of integer; i, j: integer; begin for i := 1 to 5 do begin for j := 1 to 5 do begin a[i, j] := 1 + random(9); write(a[i, j]:4); end; writeln; end; writeln; for j := 1 to 5 do begin for i := 1 to 5 do write(a[i, j]:4); writeln; end end.
Скорее всего, здесь 5ричная система счислений (бОльшая цифра 4). Тогда 44 это 4(1)4(0), то есть чем левее цифра, тем большую степень она имеет. Каждую цифру умножаем на основание системы счисления 5 в той степени, которую мы указали и результаты складываем. Получится: 4*5(в первой степени)+4*5(в нулевой степени)=4*5+4*1=20+4=24
Если рассчитать возраст равный 100, то получится 1(2)0(1)0(0)=1*5(во второй степени)+0*5(в первой степени)+0*5(в нулевой степени)=1*25+0*5+0*1=25+0+0=25
Если рассчитать возраст равный 34, получится 3(1)4(0)=3*5(в первой степени)+4*5(в нулевой степени)=3*5+4*1=15+4=19
Следовательно, 11, это 1(1)1(0)=1*5(1)+1*5(0)=1*5+1*1=5+1=6
Думаю, с целыми числами трудности не должно возникнуть. Что же касается дробных, то 1/10 можно представить как 0,1. Степени после запятой расставляются направо со знаком минус, то есть 0,1=1*5(-1)=1/5=0,2
Система счисления устанавливается исходя из двух первых фраз. "Я окончил курс университета 44 лет от роду. Спустя год, 100-летним молодым человеком...". Только в системе счисления по основанию 5 прибавление 1 к 4 даст +1 в следующий разряд и обнулит текущий. 44 (5) +1=100 (5) При переходе к десятичной системе счисления получаем следующий текст:
Я окончил курс университета 24 лет от роду. Спустя год, 25-летним молодым человеком, я женился на 19-летней девушке. Незначительная разница в возрасте- всего 6 лет тому, что мы жили общими интересами и мечтами. Спустя немного лет у меня уже была маленькая семья из 5 детей. Жалованья я получал в месяц всего 50 рублей, из которых приходилось отдавать 1/5 сестре, так что мы с детьми жили на 40 рублей в месяц".
var a: array[1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do begin
for j := 1 to 5 do begin
a[i, j] := 1 + random(9);
write(a[i, j]:4);
end;
writeln;
end;
writeln;
for j := 1 to 5 do begin
for i := 1 to 5 do
write(a[i, j]:4);
writeln;
end
end.