uses crt;
var
a,b:Integer;{исходные числа, предполагаются, что они не равны нулю}
r:Integer;
begin
clrscr;
Write('a=');Readln(a);
Write('b=');Readln(b);
if (a=0)or(b=0) then b:=0 else
{вычисляем НОД}
begin
r:= a mod b;
while r<>0 do begin
a:=b;
b:=r;
r:= a mod b;
end;
end;
{b содержит НОД(a,b) или 0 для неверных данных}
if b=0 then Writeln('Неверные данные')
else if b=1 then Writeln('Взаимно просты')
else Writeln('Не взаимно просты');
Readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.