программа для нахождения нок

@Михан · Регистрация: 05.11.2009

Ребят нужно написать программу на пасскале для нахождения наименьшего общего кратного для двух чисел при помощи repeat.

@yanyk1n · 05.11.2009, 21:15

Pascal

uses crt;
var a,b,c:integer;
 
begin
 readln(a,b);
 c:=a*b;
 repeat
  if a>b then a:=a-b else b:=b-a;
 until a=b
 c:=с div a;
 writeln(c);
end;

P.S. Использовано свойство НОД(a,b)*НОК(a,b)=a*b

@Михан · 05.11.2009, 21:22 **[ТС]**

Спасибо что так быстро откликнулись!

@System.exe · 05.11.2009, 21:26

Pascal

Var x,y,z,nok:longint;
begin
writeln('enter x and y');
readln(x,y);
repeat
begin
if x>y then
x:=x-y;
else y:=y-x
end;
until x<>y;
z:=x;
nok:=(x*y)/z;
writeln('nok(', x, y, ')=', nok:6:3)
end.

@Михан · 05.11.2009, 21:49 **[ТС]**

пасибо

Добавлено через 1 минуту
Нужно найти наибольший общий делитель двух чисел с помощью цикла FОR.
Помогите. ошен надо. А я вообще ноль.

@yanyk1n · 05.11.2009, 21:49

Сообщение от System.exe

until x<>y;

??? Тогда цикл сразу же и выйдет!

@lexus_ilia · 06.11.2009, 00:55

Михан, Для нового вопроса создаём новую тему.

@Михан · 06.11.2009, 12:20 **[ТС]**

да я уже понял. Спасибо)

@Михан 9 / 9 / 3 Регистрация: 05.11.2009 Сообщений: 74
		1
	программа для нахождения нок 05.11.2009, 21:03. Просмотров 35231. Ответов 7 Метки нет (Все метки) Ребят нужно написать программу на пасскале для нахождения наименьшего общего кратного для двух чисел при помощи repeat. 0

@Михан 9 / 9 / 3 Регистрация: 05.11.2009 Сообщений: 74
	05.11.2009, 21:22 [ТС]	3
	Спасибо что так быстро откликнулись! 0

@Михан 9 / 9 / 3 Регистрация: 05.11.2009 Сообщений: 74
	05.11.2009, 21:49 [ТС]	5
	пасибо Добавлено через 1 минуту Нужно найти наибольший общий делитель двух чисел с помощью цикла FОR. Помогите. ошен надо. А я вообще ноль. 0

@yanyk1n 4337 / 1469 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	05.11.2009, 21:49	6
	Сообщение от System.exe until x<>y; ??? Тогда цикл сразу же и выйдет! 1

@lexus_ilia 3063 / 723 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	06.11.2009, 00:55	7
	Михан, Для нового вопроса создаём новую тему. 0

@Михан 9 / 9 / 3 Регистрация: 05.11.2009 Сообщений: 74
	06.11.2009, 12:20 [ТС]	8
	да я уже понял. Спасибо) 0

Опции темы