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

1

Ответы и объяснения

2014-03-23T16:59:24+00:00
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.