Нужна программа по информатике НАХОЖДЕНИЕ НАИМЕНЬШЕГО ОБЩЕГО ДЕЛИТЕЛЯ, СРОЧНО!!!

Question

Нужна программа по информатике НАХОЖДЕНИЕ НАИМЕНЬШЕГО ОБЩЕГО ДЕЛИТЕЛЯ, СРОЧНО!!!

Comments

а на каком языке?

Answer 1

Var
a,b,c:integer;
Begin
Read(a,b);
While b<>0 do
Begin
C:= a mod b;
A:= b;
B:= c;
End;
Writeln(a);
End.