Вход на сайт
кто в ПАСКАЛЕ разбирается?
111 просмотров
Перейти к просмотру всей ветки
в ответ Niko13 24.10.02 17:31
Ладно не стал много думать решил в инете найти что это такое и заодно наткнулся на решение ... ой ленивый я стал :(((
Var n,m,nok:integer;
{Функция, определяющая НОД двух чисел:}
Function nod(m,n:integer):integer;
Var r:integer;
begin
while n>0 do begin
r:=m mod n;
m:=n;
n:=r
end;
nod:=m;
end;
BEGIN {Основной программы}
{Ввод значений n и m:}
while n<=0 do
begin
write('Введите число n ',0);readln(n,0);
if n<=0 then
writeln('Число n должно быть положительным!')
end;
while m<=0 do
begin
write('Введите число m ',0);readln(m,0);
if m<=0 then
writeln('Число m должно быть положительным!')
end;
{Определяем и печатаем значение nok:}
nok:=m*n div nod(m,n,0);
writeln('НОК чисел n и m равен ', nok)
END.
Всегда с приветом ...
-=Alex Den=-
Var n,m,nok:integer;
{Функция, определяющая НОД двух чисел:}
Function nod(m,n:integer):integer;
Var r:integer;
begin
while n>0 do begin
r:=m mod n;
m:=n;
n:=r
end;
nod:=m;
end;
BEGIN {Основной программы}
{Ввод значений n и m:}
while n<=0 do
begin
write('Введите число n ',0);readln(n,0);
if n<=0 then
writeln('Число n должно быть положительным!')
end;
while m<=0 do
begin
write('Введите число m ',0);readln(m,0);
if m<=0 then
writeln('Число m должно быть положительным!')
end;
{Определяем и печатаем значение nok:}
nok:=m*n div nod(m,n,0);
writeln('НОК чисел n и m равен ', nok)
END.
Всегда с приветом ...
-=Alex Den=-
---(¿) ---
Стань карлсоном - купи себе вентилятор
Стань карлсоном - купи себе вентилятор