Составьте и запишите КОМПЬЮТЕРНУЮ программку на языке программированияПаскаль для решения
Составьте и запишите КОМПЬЮТЕРНУЮ программку на языке программирования
Паскаль для решения последующей задачки:
НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ (сокращённо НОД) 2-ух целых чисел Х и Y, если они оба:
- неотрицательные;
- кончаются на цифру 5.
Другие варианты чисел обязаны игнорироваться, при этом юзеру следует об этом сказать.
2 ответа
Тимур Товаровский
Var
X,Y,NOD:integer;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(y);
if (Xgt;=0)and(Ygt;=0)and(X mod 10 = 5)and(Y mod 10 = 5) then
Begin
if Xlt;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 (Xgt;=0)and(Ygt;=0)and(X mod 10 = 5)and(Y mod 10 = 5) then
Begin
if Xlt;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.
Артём Шюпин
Спасибо огромное
Санек Хрунин
Var
X,Y,NOD:integer;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (Xgt;=0)and(Ygt;=0)and(X mod 10=5)and(Y mod 10=5) then
Begin
while (Xlt;gt;0)and(Ylt;gt;0) do
if Xgt;Y then X:=X-Y else Y:=Y-X;
Write('NOD = ',X+Y)
End
else WriteLn('Данные числа не рассматриваются!')
End.
Пример:
X = 125
Y = 75
NOD = 25
X,Y,NOD:integer;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (Xgt;=0)and(Ygt;=0)and(X mod 10=5)and(Y mod 10=5) then
Begin
while (Xlt;gt;0)and(Ylt;gt;0) do
if Xgt;Y then X:=X-Y else Y:=Y-X;
Write('NOD = ',X+Y)
End
else WriteLn('Данные числа не рассматриваются!')
End.
Пример:
X = 125
Y = 75
NOD = 25
Диана Бокараева
Спасибо огромное
Таисия Небылицына
Пожалуйста.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов