Var A:array[1..6,1..6]of integer;
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;
for i:=1 to 6 do A[i,1]:=1;
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],' ');
writeln();
end;
<span>end.</span>
Привет)вот ответ)спасибо не забудь!
<span>Класс натуральных чисел и класс их квадратов.</span>
Используем нумерацию слов не с 1, а с нуля. Заметим, что кодирование слов происходит аналогично кодированию чисел в 4-ричной системе счисления, поскольку мощность алфавита равна 4 (4 буквы). Буква А соответствует 0, К - 1, Р - 2, У - 3.
Тогда слово РАААА - первое слово, которое начинается на Р, - соответствует числу 20000.в 4-ричной системе счисления
Слово РУУУУ - последнее слово, которое начинается на Р, - соответствует числу 23333.
Переведем их в десятичную систему счисления.
20000_4 = (2*4^4)_10 = 512_10
23333_4 = (30000-1)_4 = (3*4^4-1)_10 = 767_10
(X_Y - число X в системе счисления Y. Когда будешь оформлять, Y надо написать как индекс справа внизу от числа X)
Так вот, при нумерации с 1 слово РАААА будет 513-м, а слово РУУУУ будет 768-м
Нужно сложить все числа и разделить на количество самих чисел. Например среднее арифметическое чисел 8, 2 и 20 будет 10, потому что (8+2+20):3=10
Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59</span>
