Var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
<span><span>while a <> b do
</span><span> if a > b then </span><span> a := a - b
</span><span> else </span><span> b := b - a<span>;
writeln('НОД первой и второй части: ', a);
end.</span></span></span>
Окно программы называется ярлык
3план анимации 4 подготовка онимации в действ
Блокнот майкросовт вёрд и текстовый документ