Определить являются ли два числа взаимно простыми

@Ананасик · Регистрация: 20.04.2016

Author24 — интернет-сервис помощи студентам

Написать функцию в которой 2 числа называются простыми, если имеют один общий делитель- единицу

@Puporev · 05.10.2016, 17:21

Сообщение от Ананасик

2 числа называются простыми

Эти числа называются взаимно простые, например 9 и 16.

Pascal

function VZ_PRST(a,b:integer):boolean;
begin
repeat
if a>b then a:=a mod b
else b:=b mod a;
until (a=0)or(b=0);
result:=a+b=1;
end;
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if VZ_PRST(a,b)then write('Эти числа взаимно простые!')
else write('Эти числа не являются взаимно простыми!');
end.

@Ананасик 1 / 1 / 0 Регистрация: 20.04.2016 Сообщений: 26
		1
	Определить являются ли два числа взаимно простыми 05.10.2016, 12:38. Показов 7207. Ответов 1 Метки нет (Все метки) Написать функцию в которой 2 числа называются простыми, если имеют один общий делитель- единицу 0

	05.10.2016, 17:21

Определить являются ли два числа взаимно простыми

Решение