Программирование
+1Найдите наибольший общий делитель двух заданных целых чисел в паскале с оформлением пожалуйста
По дате
По рейтингу
Задай в поиске и получишь массу вариантов ответа
тем более, что здесь удаляются пробелы и оформление получается не очень.
program GreatestCommonDiv;
var
m, n: word;
begin
readln(m, n);
while m <> n do begin
if m > n then begin
m := m - n
end
else begin
n := n - m
end
end;
writeln(m)
end.
{Нахождение НОД }
uses crt;
var a,b: integer;
begin
write('Ввести 2 целых числа --> ');
readln(a,b);
while a*b > 0 do
if a >= b then a:= a mod b else b:= b mod a;
write(a+b);
readln;
end.
Алгоритм Эвклида надо знать наизусть.