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