Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним

@Jeka41 · Регистрация: 07.12.2011

Author24 — интернет-сервис помощи студентам

дано натуральное число n. получить все натуральные числа меньшие n и взаимно простые с ним с помощью цикла repead

@DonSinDRom · 10.12.2012, 19:39

Цикла reapead в паскале нет. Есть repeat.

@Jeka41 · 10.12.2012, 21:54 **[ТС]**

прошу прощения, опечатка

@Jeka41 · 13.01.2013, 13:30 **[ТС]**

...

@kent555 · 13.01.2013, 13:32

Pascal

uses crt;
function nod(x,y:integer):integer;
begin
repeat
if abs(x)>abs(y) then x:=x mod y
else y:=y mod x;
until (x=0) or (y=0);
nod:=abs(x+y);
end;
var n,m,i,a,k:integer;
begin
clrscr;
write('n=');
readln(n);
m:=n;
k:=0;
for i:=2 to n-1 do
 begin
  a:=i;
  if nod(a,m)=1 then
   begin
    writeln(i);
    k:=1;
   end;
 end;
if k=0 then write('Нет взаимно простых чисел');
readln
end.

@Jeka41 · 13.01.2013, 13:41 **[ТС]**

[Fatal Error] Project2.dpr(8): File not found: 'scr.dcu'

@kent555 · 13.01.2013, 13:46

странно у меня норм,а ты в паскальзапускаеш или в делфи?

HighPredator · 13.01.2013, 13:47

Jeka41, а в делфи нет модуля crt. И уж тем более scr (не понятно еще откуда вы его выдумали). И раз уж вы под делфи делаете, то было бы логичнее в соответствующем разделе тему и разместить.

@kent555 · 13.01.2013, 13:48

я делаю под паскаль,то что в делфи этого нет это я знаю

@Jeka41 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 28
		1
	Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним 09.12.2012, 23:01. Показов 8395. Ответов 8 Метки нет (Все метки) дано натуральное число n. получить все натуральные числа меньшие n и взаимно простые с ним с помощью цикла repead 0

@DonSinDRom 6 / 6 / 2 Регистрация: 09.12.2012 Сообщений: 5
	10.12.2012, 19:39	2
	Цикла reapead в паскале нет. Есть repeat. 1

@Jeka41 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 28
	10.12.2012, 21:54 [ТС]	3
	прошу прощения, опечатка 0

@Jeka41 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 28
	13.01.2013, 13:30 [ТС]	4
	... 0

@Jeka41 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 28
	13.01.2013, 13:41 [ТС]	6
	[Fatal Error] Project2.dpr(8): File not found: 'scr.dcu' 0

@kent555 2 / 2 / 1 Регистрация: 26.11.2012 Сообщений: 102
	13.01.2013, 13:46	7
	странно у меня норм,а ты в паскальзапускаеш или в делфи? 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	13.01.2013, 13:47	8
	Jeka41, а в делфи нет модуля crt. И уж тем более scr (не понятно еще откуда вы его выдумали). И раз уж вы под делфи делаете, то было бы логичнее в соответствующем разделе тему и разместить. 1

@kent555 2 / 2 / 1 Регистрация: 26.11.2012 Сообщений: 102
	13.01.2013, 13:48	9
	я делаю под паскаль,то что в делфи этого нет это я знаю 0