13 lines
265 B
ObjectPascal
13 lines
265 B
ObjectPascal
// Öèêë repeat. Àëãîðèòì Åâêëèäà íàõîæäåíèÿ íàèáîëüøåãî îáùåãî äåëèòåëÿ
|
|
var A,B: integer;
|
|
|
|
begin
|
|
write('Ââåäèòå äâà öåëûõ ÷èñëà: ');
|
|
readln(A,B);
|
|
repeat
|
|
var C := A mod B;
|
|
A := B;
|
|
B := C;
|
|
until B=0;
|
|
write('Íàèáîëüøèé îáùèé äåëèòåëü = ',A);
|
|
end. |