Предмет: Информатика,
автор: haydeggerdi3235
нужна программа по информатике НАХОЖДЕНИЕ НАИМЕНЬШЕГО ОБЩЕГО ДЕЛИТЕЛЯ, СРОЧНО!!!
Ответы
Автор ответа:
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.
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
Предмет: Математика,
автор: nastija280484
Предмет: Математика,
автор: bliznych