Вопрос по информатике:
PASKAL : вывести все простые числа в интервале от 1 до 50 (желательно с объяснением, очень срочно, проверьте у себя на ПК для достоверности) СПАСИБО БОЛЬШОЕ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.08.2016 12:59
- Информатика
- remove_red_eye 15142
- thumb_up 11
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('N=');
for var i:=1 to n do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then Print(i)
end
end.
Пример
N= 50
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47
- 06.08.2016 23:41
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.