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>
Это как в умножении от перестановки множителей сумма не меняется и также с дробями там идут задачки на сложение и перпедикулярно в этом сложении дроби должны быть высокими как и компоненты сложения
Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
Всемирная паутина
Имеется ввиду интернет