Ответ(ы) на вопрос:
Гость
var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
while a <> b do
if a > b then a := a - b
else b := b - a;
writeln('НОД первой и второй части: ', a);
end.
Не нашли ответ?
Похожие вопросы