Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   паскаль. (https://forum.antichat.xyz/showthread.php?t=150671)

Fouraces 24.10.2009 00:28

паскаль.
 
Пожалуйста, помогите написать несколько программ:

1.Найти первые 500 простых чисел и присвоить простым числам номера от 1 до 500. Ввести число от 1 до 500 и программа должна вывести простое число, номером которого является введённое число.

2.сжатие последовательности из К единиц.
представить К единиц в виде последовательности чисел от 1 до А так, чтобы суммы членов обоих последовательностей совпадали (были равны К) пример: 1,1,1,1,1 при А=3 может быть преобразована в 1,2,1,1 или 2,3 и тд
посчитать количество способов сжать заданную последовательность.

заранее спасибо))

Nelzone 24.10.2009 00:37

Fouraces паскал в прошлом сейчас делфи ....

Bpeguha 24.10.2009 00:39

Цитата:

Сообщение от Nelzone
Fouraces паскал в прошлом сейчас делфи ....

Это школьная программа.походу даже ДЗ. наверняка их учился даже в делфи еле разбирается :)

Ambassadorik 24.10.2009 02:38

Алгаритм на вторую знаю , паскаль не помню...

X-RayBlade 24.10.2009 11:40

Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];

][yZ 24.10.2009 11:41

/\
неоптимальный метод решения, решето эратосфена круче))

F4R 24.10.2009 14:24

Цитата:

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

по моему в паскале массив максимум на 255 может быть

][yZ 24.10.2009 15:21

Цитата:

Сообщение от F4R
по моему в паскале массив максимум на 255 может быть

гооонишь...

X-RayBlade 24.10.2009 16:48

Цитата:

Сообщение от F4R
по моему в паскале массив максимум на 255 может быть

O_x
А integer и longint?

rushter 24.10.2009 16:56

Цитата:

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.
Как то так,паскаль не помню.


Время: 09:04