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