Цитата:
Сообщение от Denim1916
плиз помогите сделать лабу мне нужно до завтра!
найдите все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 ( дробь задается двумя натуральными числами - числителем и знаменателем)
|
Код:
VAR
i,j:INTEGER;
b:BOOLEAN;
BEGIN
b:=TRUE;
FOR j:=2 TO 7 DO
FOR i:=1 TO j-1 DO
BEGIN
IF ((i mod 2 = 0) AND (j mod 2 = 0)) OR
((i mod 3 = 0) AND (j mod 3 = 0)) THEN b:=FALSE;
IF b THEN WriteLn(i:1,'/',j:1);
b:=TRUE;
END;
ReadLn;
END.