Cezel
5 год назад
нужна программа по информатике НАХОЖДЕНИЕ НАИМЕНЬШЕГО ОБЩЕГО ДЕЛИТЕЛЯ, СРОЧНО!!!
ОТВЕТЫ
Kir
Oct 24, 2020
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.
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.
690
Смежные вопросы:
