написать программу нахождения наибольшего общего делителя, для 2 чисел. А и В введенных с клавиатуры

Question

Фридерика

4 марта, 05:02

+4

Ответы (1)

Знаете ответ на вопрос?

Паняша · Answer 1

var

a, b:integer;

begin

readln (a, b) ;

while ab do

begin

if a>b then a:=a-b;

if a
end;

writeln (a) ;

readln;

end.