Составить программу , которая определяет , являются ли два числа взаимно простыми , и выводит на экран сообщение 'да' или 'нет' и используя с цикл параметром (взаимно простые числа - это числа , которые не имеют общих делителей кроме 1 , на пример : 3 и 5)

begin

 var a := ReadInteger('a =');

 var b := ReadInteger('b =');

 

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 

 Print(A = 1 ? 'Да' : 'Нет')

end.

Научное программирование — высокоориентированный стиль программирования для научных расчетов. От других видов программирования его отличают предельные корректность и стабильность конечного продукта, строгое разделение научной и интерфейсной частей, индивидуальность алгоритмов, а также преобладание эффективности над универсальностью.

Объяснение:

Объяснение:

Доказательство:

1. Есть наличие терминов.

2. Нет эмоционально-окрашенной лексики и не важно отношение автора к тому, что он описывает.

3. Лексика нейтральная.

1)

from turtle import*

up()

goto(30, 20)

down()

goto(30, 60)

goto(80, 60)

goto(80, 30)

goto(150, 30)

goto(150, 50)

goto(160, 30)

goto(170, 20)

goto(30, 20)

up()

goto(40, 30)

down()

goto(40, 30)

goto(70, 50)

goto(70, 30)

goto(40, 30)

2)

from turtle import*

shape("triangle")

forward(200)

stamp()

write("x")

home()

left(90)

forward(180)

stamp()

write("y")

home()

right(90)

forward(40)

home()

left(180)

forward(50)

home()

up()

goto(10, 10)

down()

for i in range(3):

   forward(80 - i*20)

   left(90)

   forward(80 - i*20)

   left(90)

   forward(80 - i*20)

   left(90)

   forward(80 - i*20)

   left(90)

   up()

   goto(20 + i*10, 20 + i*10)

   down()

Объяснение: