Описать функцию, позволяющую находить наибольший общий делитель двух заданных чисел. помогите плиииииииззз. заранее спасибо.

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b:integer; begin writeln ('введи 2 числа'); readln (a,b); while a<>b do if a>b then a:=a-b else b:=b-a; writeln (a); end.