Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L

08.09.2007, 21:06. **Показов** 2340. **Ответов** 1

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

Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L (K,L- простые). 2) множество чисел деляшихся на K*L без остатка.
Заранее спасибо.

@Vidocq · 19.09.2007, 17:24

1)

Pascal

b:=0; 
for i:=m to n do begin
if (i mod k=0) or (i mod l=0) then begin
b:=b+1;
c[b]:=i;
end;
{ c[b] - mnozestvo}

2)

Pascal

b:=0; 
k:=k*l;
for i:=m to n do begin
if i mod k=0 then begin
b:=b+1;
c[b]:=i;
end;
{ c[b] - mnozestvo}

Igorqw
		1
	Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L 08.09.2007, 21:06. Показов 2340. Ответов 1 Метки нет (Все метки) Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L (K,L- простые). 2) множество чисел деляшихся на K*L без остатка. Заранее спасибо.

	19.09.2007, 17:24

Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L

Решение