Напишите программу в паскале abc

Question

Напишите программу в паскале abc

---

Answer 1

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.

Comments

изменено.