|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2011, 22:00 | #1 |
Новичок
Джуниор
Регистрация: 23.01.2011
Сообщений: 2
|
Модули в Pascal ABC
реализовать в виде модуля набор подпрограмм для выполнения след действий: 1)нахождение нечетных чисел 2)нахождение простых чисел. используя этот модуль решить задачу:
Числа близнецы. Два нечетных простых числа,разнящиеся на два,наз-ся близнецами(5 и 7,11 и 13).Составить программу,которая находит все числа Близнецы в интервале[2;1000] помогите пожалуста, эта задача решает мою судьбу,останусь я учиться дальше,или нет) |
23.01.2011, 22:03 | #2 |
Новичок
Джуниор
Регистрация: 23.01.2011
Сообщений: 2
|
модуль я вроде как сделал, только не знаю правильно или нет, в принципе все работает ,а вот в самой программе я ничего не могу сделать, просто выводиться список простых чисел и все.
unit complex; interface type vata=integer; procedure com(i,j,lim:vata); implementation procedure com; begin for i:=1 to 9999 do begin j:=2; lim:=round(sqrt(i)); while (i mod j <> 0) and (j <= lim) do inc( j ); if (j > lim) then write( i,' ' ); end; readln; end; end. мой модуль |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ABC | Veron_20 | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 21.12.2010 22:36 |
Pascal abc снеговик | nikita_ivanchenko | Помощь студентам | 2 | 15.12.2010 20:57 |
Turbo Pascal or Pascal ABC | Ikram | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.04.2010 13:44 |
Pascal ABC | ArcaN0id | Помощь студентам | 8 | 07.12.2009 15:24 |