Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ (сокращённо НОД) двух целых чисел Х и Y, если они оба: - неотрицательные; - заканчиваются на цифру 5. Остальные варианты чисел должны игнорироваться, при этом пользователю следует об этом сообщить.

Answer 1

Var
   X,Y,NOD:integer;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(y);
if (X>=0)and(Y>=0)and(X mod 10 = 5)and(Y mod 10 = 5) then
   Begin
   if X<Y then NOD:=X+1
   else NOD:=Y+1;
   
   Repeat
   NOD:=NOD-1;
   Until (X mod NOD = 0 )and(Y mod NOD = 0);
   Write('NOD = ',NOD)
   End
else WriteLn('Данные числа игнорируются!')
End.

Answer 2

Var
   X,Y,NOD:integer;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (X>=0)and(Y>=0)and(X mod 10=5)and(Y mod 10=5) then
   Begin
   while (X<>0)and(Y<>0) do
    if X>Y then X:=X-Y else Y:=Y-X;
   Write('NOD = ',X+Y)
   End
else WriteLn('Данные числа не рассматриваются!')
End.

Пример:
X = 125
Y = 75
NOD = 25