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

Напишите программу в паскале abc
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы