Страница 163 §3.5 номер 9, ГДЗ по информатике за 8 класс к учебнику Босовой
Информатика 8 класс 8класс
ГДЗ к учебнику по информатике за 8 класс Босовой. Решения к номерам
Ответ и решение
a) program z9a;var a, b: integer;begin write('введи два разных целых числа >'); readln(a, b); repeat if a > b then a := a - b else b := b - a; until a = b; writeln('НОД = ', a)end.б) program z9b;var a, b: integer;begin write('введи два числа >'); readln(a, b); while a<>b do if a > b then a := a - b else b := b - a; writeln('НОД = ', a) end.