8класс
Страница 163 §3.5 номер 9, ГДЗ по информатике за 8 класс к учебнику Босовой
Номер 9. Напишите программу вычисления наибольшего общего делителя двух целых чисел:
а) используйте оператор repeat;
б) используйте оператор while.
а) используйте оператор repeat;
б) используйте оператор while.
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.
