Var
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.
По формуле N=2^i где i размер памяти одного элемента.
у нагури 16=2^i значит i=4 бита
в русском языке берется 32, значит i=5 бит
значит в русском тексте больше информации
1)2 2)3 3)1 4)3 вот как то так
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
1100011101 - 797
10010 - 18
797:18=44,2(7)