Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Пожалуйста помогите с информатикой!!!! Пожалуйста срочно!!!!

lee soyen Ученик (1), закрыт 10 месяцев назад
найти НОД деление и вычитанием следующих чисел: 25 и 11.
Лучший ответ
Владимир Втюрин Высший разум (101660) 11 месяцев назад
Вычисление НОД по алгоритму Евклида - это классика программирования!

var a, b: integer;
begin
WriteLn (' НОД вычитанием: ');
Write(' a = '); Readln(a);
Write(' b = '); Readln(b);
while (a <> b) do
if (a > b) then a := a - b else b := b - a;
Writeln(' NOD = ', a); WriteLn;
WriteLn (' НОД делением: ');
while (a <> 0) and (b <> 0) do
if a >= b then a := a mod b else b := b mod a;
WriteLn (' НОД = ', a + b);
end.


Остальные ответы
Похожие вопросы