Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и N.
10-11 класс
|
Pascal
var a,b,i,c,d:integer;
begin
writeln ('Введите два натуральных числа');
readln (a,b);
if (a>0) and (b>0) then begin
if (a=b) then writeln ('НОД = ',a) else begin
if (a>b) then c:=a else c:=b;
for i:=1 to c do begin
if (a mod i=0) and (b mod i=0) then d:=i;
end;
writeln ('НОД = ',d);
end;
end else writeln ('Неверный ввод');
end.
Другие вопросы из категории
Ниже программа, в которой и нужно что-то поменять (по заданию, написанному выше)
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))
Читайте также
числа не равны, большее число заменяется разностью этих чисел. Полученное в результате число и есть наибольший общий делитель. Какие элементы, пронумерованные от 1 до 5, нужно вставить в блок-схему на места, обозначенные буквами от А до Д, чтобы получившаяся блок-схема соответствовала алгоритму Евклида?
2. Составить программу для упорядоченное двух элементов по убыванию.
(Определить процедуру, распознающую НОД двух чисел)
делителя двух натуральных чисел, используя алгоритм Евклида.