Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17
var
i,m,n: longint;
begin
write('Введите через пробел границы интервала: ');
readln(m,n);
for i:=m to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
Ответ:
система ))легко ипросто((
Для перевода нужно умножить содержимое каждого разряда на его "вес" и результаты сложить.
Начнём с первого разряда, в числе он расположен справа, и его "вес" равен 2 в нулевой степени ( 2^0 = 1 ) и далее будем двигаться к старшему разряду:
1*2^0 +0*2^1 +1*2^2 +0*2^3 +1*2^4 +0*2^5 +1*2^6 +0*2^7 +1*2^8 =
1*1 +0*2 +1*4 +0*8 +1*16 +0*32 +1*64 +0*128 +1*256 =
1 + 4 + 16 + 64 + 256 = 341
(здесь приведён полный расчёт, брались даже разряды в которых находятся нули; на практике разряды с нулями конечно можно не брать в расчёт, но при этом не перепутайте "вес" разрядов- он зависит от номера конкретного разряда).
LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END
