Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
1) посчитаем количество квартир в подъезде 1953-(1737-1)=217
количество подъездов 1953/217=9
2) ряд задается формулой a [i+1]=a [i]+3^I
считаем ряд дальше 26+81=107
107+343=450
450+1029=1479
3)
Б О Р И С
50 67 95 32 48
640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт
28800 бит/c = 3600 байт/c
921600 / 3600 = 256 c.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
begin
swap(ma[i,i],ma[n-i+1,n-i+1]);
swap(ma[i,n-i+1],ma[n-i+1,i]);
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to n do
write(ma[i,j]:4);
writeln;
end;
end.
<span>f(int n)
{
if (n == 1)
return 1;
return f(n - 1) * n;
<span>}
Факториал </span></span>