![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
![]()
P.S. язык pascal
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
такие вещи удобно реализовавать через использование функций.
например: Код:
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
![]()
Спасибо большое, но ... в более простом виде нельзя? А то я тут некоторые вещи еще не знаю
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
![]() Код:
Я программированием занимаюсь только 3 неделю(8 класс), так что не особо понимаю некоторые вещи. |
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
|
![]()
Nikita++
Тип исправте на integer Код:
Код:
Последний раз редактировалось Базиля; 20.10.2010 в 00:16. |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
![]()
Все равно не хочет
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
![]()
что не хочет?
если проблема в строке Код:
Код:
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
![]() |
![]() |
![]() |
#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 |