program raf105;
var
a:array[1..100,1..100] of integer;
i,j,n: integer;
x: boolean;
begin
x:= True;
write('Размер матрицы: ');
readln(n);
writeln('Заполните матрицу');
for i:=1 to n do
for j:=1 to n do
readln(a[j,i]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(a[j,i],' ');
if x and (a[j,i] <> a[i,j])
then x:= False;
end;
end;
writeln;
if x
then writeln('yes')
else writeln('no');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.
Блок-схема и код программы в приложениях.<span>
Примечание:</span> результат работы программы будет равен 0, т.к. 0 - целое число.
Вот первое задание:
215=2 * 6^2 + 1 * 6^1 + 5 * 6^0=83
0.017=1 * 8^(-2) + 7 * 8^(-3)=0.1428
128.23=9^2 + 2 * 9^1 + 8 + 2 * 9^(-1) + 3 * 9^(-2)=107,259
Второе:
а) AF=10101111
36=11110
(1111101+10101111)-11110=100001110=2^8 + 2^3 + 2^2 + 2=270
б)125=1010101
A2=10100010
1417=1100001111
1010101+11101*10100010-1100001111=111110100000=2^11 + 2^10 +2^9 + 2^8 + 2^7 + 2^5=4000
Програм 1 + програм 2 = d 1 + d2 деленная на 2