Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
if y1>=0 then
begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
if y2>=0 then begin
writeln(sqrt(y2));
writeln(sqrt(y2)*-1);
end;
end else
if d=0 then
begin
y1:=(-1*b)/(2*a);
if y1>=0 then begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
end
else
writeln('Корней нет');
<span>end.</span>
Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.
Рабочий стол, панель задач, главное меню (или "Пуск"), к<span>онтекстное меню(когда ПКМ нажимаешь на файле или просто на пустом месте рабочего стола)</span>
6 бит
2 в степени i равно N
У нас N= 64
2 в какой степени дает 64? в шестой.
Думаю так