|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.10.2010, 23:24 | #1 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
Найти все простые числа в заданном диапазоне
Нужно найти все простые числа в заданном диапазоне. Задумка примерно такая, а до ума довести не могу. Помогите, пожалуйста, и желательно до 21 числа.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,n,b:Int64; p:word; c:real; begin readln(b); n:=1; x:=1; while (x<=b) do begin x:=x+1; c:=(sqrt(x+1)); while (trunc(c))or(p<>0) do begin n:=n+1; p:=x mod n; end; if n=(trunc(c)) then writeln(x); end; readln; end. |
19.10.2010, 23:33 | #2 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
P.S. язык pascal
|
19.10.2010, 23:39 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
такие вещи удобно реализовавать через использование функций.
например: Код:
|
19.10.2010, 23:42 | #4 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
Спасибо большое, но ... в более простом виде нельзя? А то я тут некоторые вещи еще не знаю
|
19.10.2010, 23:49 | #5 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
Код:
Я программированием занимаюсь только 3 неделю(8 класс), так что не особо понимаю некоторые вещи. |
20.10.2010, 00:14 | #6 |
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
|
Nikita++
Тип исправте на integer Код:
Код:
Последний раз редактировалось Базиля; 20.10.2010 в 00:16. |
20.10.2010, 19:43 | #7 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
Все равно не хочет
|
20.10.2010, 20:05 | #8 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
что не хочет?
если проблема в строке Код:
Код:
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
20.10.2010, 20:05 | #9 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Двойной пост
Изо всей благодати
В руках крепко сжатых Я донесу только капли Последний раз редактировалось Roof; 20.10.2010 в 20:09. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти из указанного диапазона все простые числа | мария2507 | Microsoft Office Excel | 11 | 03.04.2010 17:38 |
в заданном массиве вывести все четные числа | leysan | Помощь студентам | 2 | 09.12.2009 22:08 |
Найти все целочисленные решения уравнения 3x+4y=2z на заданном отрезке [L,R] | Zmey_by_Nojabrsk | Помощь студентам | 3 | 18.10.2007 22:08 |