Дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 6.
1 вариант
Pascal
Var
n,k,i:integer;
X,A,f,C:Real;
begin
k:=1;
Writeln('Введите N');
Readln(n);
Writeln('Введите X');
Readln(x);
Writeln('Введите A');
Readln(a);
F:=(exp(ln(X/A)*1))/1;
for i:=2 to n do begin
k:=k*i;
C:=(exp(ln(X/A)*N))/K;
F:=F+C;
end;
Writeln(F);
end.
2 вариант
var
X, A, F : Real;
i, N : Integer;
begin
Write('n = '); ReadLn(N);
Write('x = '); ReadLn(X);
Write('a = '); ReadLn(A);
F := 1;
Sum := F;
for i := 1 to N do
begin
F := F * (X / A) / i;
Sum := Sum + F;
end;
WriteLn(Sum:0:5);
end.
uses graphabc;
begin
SetPenWidth(3);
MoveTo(100,50);
LineTo(150,200);
LineTo(100,400);
LineTo(200,200);
LineTo(200,150);
LineTo(100,50);
FloodFill(150,150, clGray);
MoveTo(200,150);
LineTo(300,100);
LineTo(350,50);
LineTo(500,100);
LineTo(550,150);
LineTo(550,200);
LineTo(500,250);
LineTo(350,300);
LineTo(300,250);
LineTo(200,200);
Line(300,100,500,100);
FloodFill(350,90, clGray);
Line(300,250,500,250);
FloodFill(350,290, clGray);
SetBrushColor(clGray);
Circle(500,150,10);
SetBrushColor(clBlack);
Circle(500,150,4);
Rectangle(550,150,557,200);
SetBrushStyle(bsDiagCross);
FloodFill(250,150, clGray)
end.
Объяснение:
картинка