Помогите с задачей на Pascal
Очень нуждаюсь в вашей помощи, друзья.
Надо составить задачу на паскале с циклическим алгоритмом (while). Вот задача: Числа, у которых НОД равен 1, называются взаимно - простыми. Найти все взаимно - простые числа на отрезке [1;100]. Была бы так же очень признательна, если бы описали, что какая переменная делает и для чего она нужна. Спасибо! |
Цитата:
Собственно, комментировать тут особо нечего. Задача решается методом перебора: организуется двойной цикл, генерирующий пары чисел: первое - от 100 до 2, второе - от первого минус единица до 1. Те пары, для которых выполняется условие НОД=1, записываются в выходной файл. Поскольку таких пар в указанном интервале больше 3000, выводить на экран бессмысленно. Код:
Var |
Цитата:
|
Часовой пояс GMT +4, время: 05:40. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.