IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на нахождение составных чисел, цикл
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Alyona

Репутация: -  0  +


Напечатать все составные числа в интервале [2;n]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Aljonka @ 31.12.2006 10:15) *

Напечатать все составные числа в интервале [2;n]

Что ты хочешь - алгоритм или реализацию? Впрочем, в любом случае сначала нужен алгоритм.. smile.gif
У тебя есть свои соображения? или, может, уже начала делать прогу? Покажи свои успехи. Тут помогут..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Можно найти все простые числа в диапазоне с помощью алгоритма "решето Эратосфена", и напечатать те которые не являються простыми:

uses
crt;
const
n=100;
var
chisla:set of byte;
i:byte;

procedure eratosfen(i:byte);
var
z:byte;
begin
if i>=n then exit;
z:=i;
while z<=n do
begin
inc(z,i);
if z in chisla then exclude(chisla,z)
end;
eratosfen(i+1)
end;

begin
clrscr;
chisla:=[1..n];
eratosfen(2);
for i:=1 to n do
if( not(i in chisla)) then write(i:4);
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Гость,
N = 768, твои действия?

(кстати, вот программу-то как раз перепечатывать и незачем, у нас в FAQ-е лежит ОТЛАЖЕННАЯ, а насчет этой я не уверен)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Alyona

Репутация: -  0  +


smile.gif cool.gif no1.gif rolleyes.gif yes2.gif
vsjo poluchilosj...

uses crt;
var n,k,i,j,kl:integer;
begin
clrscr;
writeln('Vvedite pervoe i poslednee chislo (vozmozhno[2;n])');
readln(n,k);
writeln('Vse slozhnye chisla [',n,';',k,']');
for i:=n to k do
begin
kl:=0;
for j:=2 to round(sqrt(i)) do
if (i mod j)=0 then
kl:=kl+1;
if kl<>0 then
writeln(i,'');
end;
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Alyona

Репутация: -  0  +


nemnogo oshiblasj
7) writeln('Vse sostavnye chisla [',n,';',k,']');
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 12:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name