Проверить являются ли два числа a и b взаимно простыми.два числа называются взаимно простыми, если их наибольший общий делитель равен 1.протестировать программу для следующих исходных данных a) a=5 b=100 b) a=3 b=100 c) a=11 b=98

var  a, b: integer; begin  write('a = '); readln(a);   write('b = '); readln(b);   while (a < > 0) and (b < > 0) do      if a > = b then          a : = a mod b      else          b : = b mod a;   a : = a + b;   if a = 1 then

      writeln('числа являются взаимнопростыми' )

  else

      writeln('числа не являются взаимнопростыми' )end.

ответ:Это арифметическая последовательность, поскольку ее члены различаются на одинаковое значение. В данном случае, прибавление  

4

к предыдущему члену последовательности дает следующий член. Другими словами,  

a

n

=

a

1

+

d

(

n

−

1

)

.

Арифметическая последовательность:  

d

=

4

Это формула арифметической последовательности.

a

n

=

a

1

+

d

(

n

−

1

)

Подставим значения  

a

1

=

3

и  

d

=

4

.

a

n

=

3

+

(

4

)

(

n

−

1

)

У каждый член.

Нажмите, чтобы увидеть больше шагов...

a

n

=

3

+

4

n

−

4

Вычтем  

4

из  

3

.

a

n

=

4

n

−

1

Объяснение:

Python 3:

from random import randint

C = [randint(-100, 100) for _ in range(20)]

print(*C)

print(sum(filter(lambda el: el < 0, C)))

Аналог в PascalABC.NET:

begin

 var C := ArrRandomInteger(20, -100, 100);

 C.Println;

 C.Where(x -> x < 0).Sum.Print;

end.

Паскаль, в "старом" стиле:

var

 C: array[1..20] of integer;

 i, s: integer;

begin

 randomize();

 s := 0;

 for i := 1 to 20 do  

 begin

   C[i] := random(201) - 100;

   write(C[i], ' ');

   if C[i] < 0 then

     s := s + C[i];

 end;

 writeln();

 write(s)

end.