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
помогите пожалуста ...киньте свежее мнение на эту задачу) |
