ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

24.10.2009, 00:28
|
|
Новичок
Регистрация: 06.03.2009
Сообщений: 8
Провел на форуме: 55587
Репутация:
2
|
|
паскаль.
Пожалуйста, помогите написать несколько программ:
1.Найти первые 500 простых чисел и присвоить простым числам номера от 1 до 500. Ввести число от 1 до 500 и программа должна вывести простое число, номером которого является введённое число.
2.сжатие последовательности из К единиц.
представить К единиц в виде последовательности чисел от 1 до А так, чтобы суммы членов обоих последовательностей совпадали (были равны К) пример: 1,1,1,1,1 при А=3 может быть преобразована в 1,2,1,1 или 2,3 и тд
посчитать количество способов сжать заданную последовательность.
заранее спасибо))
|
|
|

24.10.2009, 00:37
|
|
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
Провел на форуме: 4700216
Репутация:
261
|
|
Fouraces паскал в прошлом сейчас делфи ....
|
|
|

24.10.2009, 00:39
|
|
Познающий
Регистрация: 30.08.2008
Сообщений: 80
Провел на форуме: 870013
Репутация:
26
|
|
Сообщение от Nelzone
Fouraces паскал в прошлом сейчас делфи ....
Это школьная программа.походу даже ДЗ. наверняка их учился даже в делфи еле разбирается 
|
|
|

24.10.2009, 02:38
|
|
Новичок
Регистрация: 16.02.2009
Сообщений: 14
Провел на форуме: 205599
Репутация:
38
|
|
Алгаритм на вторую знаю , паскаль не помню...
|
|
|

24.10.2009, 11:40
|
|
Познавший АНТИЧАТ
Регистрация: 22.02.2009
Сообщений: 1,888
Провел на форуме: 6757783
Репутация:
3293
|
|
Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];
|
|
|

24.10.2009, 11:41
|
|
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме: 1776253
Репутация:
106
|
|
/\
неоптимальный метод решения, решето эратосфена круче))
|
|
|

24.10.2009, 14:24
|
|
Banned
Регистрация: 20.06.2008
Сообщений: 296
Провел на форуме: 1385078
Репутация:
126
|
|
Сообщение от X-RayBlade
Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];
по моему в паскале массив максимум на 255 может быть
|
|
|

24.10.2009, 15:21
|
|
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме: 1776253
Репутация:
106
|
|
Сообщение от F4R
по моему в паскале массив максимум на 255 может быть
гооонишь...
|
|
|

24.10.2009, 16:48
|
|
Познавший АНТИЧАТ
Регистрация: 22.02.2009
Сообщений: 1,888
Провел на форуме: 6757783
Репутация:
3293
|
|
Сообщение от F4R
по моему в паскале массив максимум на 255 может быть
O_x
А integer и longint?
|
|
|

24.10.2009, 16:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
Провел на форуме: 9257858
Репутация:
979
|
|
for i:=1 to 50000 do begin
s:=0;
for ii:=2 to i do begin
if i mod ii=0 then s:=s+1;
end;
if s>0 then writeln(i);
end;end.
Как то так,паскаль не помню.
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Вопрос по паскаль
|
toross |
Болталка |
17 |
17.05.2009 14:13 |
|
ВОПРОС ПО ПАСКАЛЬ
|
toross |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
3 |
16.05.2009 15:15 |
|
Паскаль на висту.
|
SHAXID |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
2 |
10.04.2009 21:11 |
|
Посоветуйте (паскаль)
|
FALTONICK |
Болталка |
8 |
25.03.2009 12:27 |
|
двойные массивы ( турбо паскаль )
|
dimhee |
Болталка |
4 |
28.12.2008 23:32 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|