Найти все общие делители чисел

@XakER_93 · Регистрация: 16.09.2008

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

Дано два целие числа m,n.Найти все общие делители этих чисел.

@lexus_ilia · 29.10.2008, 14:44

Слушай глянь Сюда... Сделай своё задание сам.

@MadMag · 29.10.2008, 15:06

No comments.

Код

program Bred;

uses crt;

var
   m,n,i,y,c:integer;

begin
write('m = ');readln(m);
write('n = ');readln(n);
write('Prostie deliteli:  ');
For i:=1 to abs(m-n) div 2 do
   If (m mod i=0) and (n mod i=0) then begin write(i, ' ');c:=(-1)*i;write(c,'  ');inc(y);end;
   If y=0 then writeln('Obshih deliteley netu');
   writeln;
   writeln;
 writeln('Press Enter');
readln;
end.

@ok2day · 29.10.2008, 15:11

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

@XakER_93 4 / 4 / 0 Регистрация: 16.09.2008 Сообщений: 45
		1
	Найти все общие делители чисел 29.10.2008, 14:39. Показов 6723. Ответов 3 Метки нет (Все метки) Дано два целие числа m,n.Найти все общие делители этих чисел. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	29.10.2008, 14:44	2
	Слушай глянь Сюда... Сделай своё задание сам. 0

@ok2day 12 / 12 / 0 Регистрация: 23.10.2008 Сообщений: 281
	29.10.2008, 15:11	4
	слуш, парень... не стыдно с такими вопросами обращаться???? тут думать особо нечего. 0