20.01.2010, 20:58 | #1 (permalink) |
Новичок
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача с массивами
|
20.01.2010, 20:58 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти топики очень похожи на ваш и помогут вам разобраться Оформление процедуры с массивами Помогите с двумерными массивами. C++ |
20.01.2010, 21:49 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
А что там пояснять-то? Нужно ввести N и вывести первые N простых чисел.
__________________
Убить всех человеков! |
20.01.2010, 21:59 | #5 (permalink) |
Новичок
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
[QUOTE=mister ratmir;284340]помогите пожалуйста:Для заданного натурального N определите первые N простых чисел
условие задачи такое же!там надо ее решать с процедурами!если не сможете эту не беда!главное хотя бы ту!пожалуйста! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.01.2010, 23:13 | #7 (permalink) |
Member
Регистрация: 25.02.2009
Сообщений: 81
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 180
|
program ProstChisla
var N, i, a, j, x: integer begin clrscr; writeln ("введите колличество необходимых простых чисел N="); readln (N); a:=3; i:=3; x:=0; if N=0 do writeln ("простых чисел не найдено") else if N=1 do writeln ("1") else if N=2 do begin; writeln ("1"); writeln ("2"); end; else writeln ("1"); writeln ("2"); while i<=N do begin; for j:=2 to a-1 do if (a mod j<>0) then x:=x+1 else x:=x+0; if x=0 then begin; writeln (a); i:=i+1; end; a:=a+1; end; end. |
21.01.2010, 19:21 | #10 (permalink) |
Member
Регистрация: 25.02.2009
Сообщений: 81
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 180
|
mister ratmir, отпишитесь хоть как программа, прошла/не прошла =)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|