1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.
var
a,b,c: array[1..n] of integer;
i: byte;
begin
randomize;
for i:=1 to n do begin;
a[i]:=random(-10,10);
b[i]:=random(-10,10);
end;
println (a);
writeln;
println (b);
writeln;
for i:=1 to n do begin;
c[i]:=a[i]*b[n+1-i];
end;
println (c);
end.
Пример:
9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10
-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9
-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30