Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of real;
i,j:integer;
Sr,B,C:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random()*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn;
End;
WriteLn;
WriteLn('Сглаженная матрица:');
For i:= 1 to N do
Begin
B:=A[i,1];
C:=A[i,2];
A[i,1]:=(B+C)/2;
For j:= 2 to M-1 do
Begin
Sr:=(B+C+A[i,j+1])/3;
B:=A[i,j];
A[i,j]:=Sr;
End;
A[i,M]:=(B+A[i,M])/2
End;
For i:= 1 to N do
Begin
For j:= 1 to M do
Write(A[i,j]:6:3,' ');
WriteLn;
End
End.
С помощью 4 бит можно закодировать числа с 0 до 15, с помощью 3 бит - только первые 8 чисел => минимальное количество бит - 4
Все что doc, и txt это текстовый файл, графические это jpg wav, а программы bmp, exe
Program program;
var a,b,c:integer;
d,e:real;
begin
writeln('Введите два числа: ');
readln(a,b);
c:=a+b;
d:=c/3;
e:=c/7;
writeln('Сумма равна: ',c,'Результат деления на три: ',d,'Результат деления на семь: ',e);
end.
<span> 4+4x5-6+7-8=17</span>
<span> 3+4+5-6+7+8=21</span>