Главная » Pascal, Исходники, Разное » Найти наибольший общий делитель двух чисел
Дек
13

Найти наибольший общий делитель двух чисел

Задание: Найти наибольший общий делитель двух целых чисел.
[sourcecode language=»pascal»]
Program nod;
var
p, n1, m1, n, m, R: integer;
begin
writeln(‘vvedite 2 chisla’);
readln(m,n);
if (n = 0) or (m = 0) then
R:= 0
else
begin
if m < n then
begin
n1 := m;
m1 := n;
end
else
begin
n1 := n;
m1 := m;
end;
while n1 > 0 do
begin
p := m1 mod n1;
m1 := n1;
n1 := p;
end;
R := m1;
writeln(‘HOD = ‘, R);
readln;
end;
end.
[/sourcecode]
Задача исполнена на языке паскаль. Хотя однажды уже был подобный исходник написан на Delphi (Нахождение наибольшего общего делителя двух целых чисел [НОД]).



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.