maxart
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Попалась мне одна задача и что то никак не выходит ... вот условие Вывести на экран все пары взаимно простых чисел на интервале от 1 до 100 (два числа называются взаимно простыми, если они не имеют общих делителей, кроме 1). а вот и то что я делал program pr3 integer num, delit,a logical flag do num=2,20 flag=.TRUE. do delit=2,num-1 if (mod(num,delit)==0) then do a=2,num-1 if (mod(num,a)==0.and.a==delit) then flag=.FALSE. exit end if end do end if if (flag) write(*,*) a,num end do end do write(*,*) end помогите пожалуста ...киньте свежее мнение на эту задачу) |