Предмет: Информатика, автор: haydeggerdi3235

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

Ответы

Автор ответа: Gozammer
0
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.
Похожие вопросы
Предмет: Алгебра, автор: luciferhell145
Предмет: Алгебра, автор: ksusheb
Предмет: Физика, автор: ozerov0505
Предмет: Математика, автор: bliznych