Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
bital
Новичок
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 00:40
  #1
Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
AdAgent
Объявления
06.11.2009, 00:40
lexus_ilia
Форумчанин
3013 / 684 / 12
Регистрация: 24.09.2008
Сообщений: 1,528
06.11.2009, 00:46
  #2
Пользуйтесь поиском по форуму.
egornefor
Новичок
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 00:56
  #3
на каком языке?? и то есть до r?
System.exe
Форумчанин
88 / 84 / 2
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 00:57
  #4
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var r,i,j,s:integer;
begin
writeln('enter r');
readln(r);
s:=0;
for i:=1 to r do
begin
for j:=1 to i do
s:=s+i mod j;
if s=i+1 then
writeln(i);
else continue
end;
end.
lexus_ilia
Форумчанин
3013 / 684 / 12
Регистрация: 24.09.2008
Сообщений: 1,528
06.11.2009, 00:57
  #5
egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
say
Новичок
18 / 18 / 0
Регистрация: 05.11.2009
Сообщений: 31
06.11.2009, 00:58
  #6
примерно так:

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i, j, r : integer;
flag : boolean;
begin
  write("r = ");
  read(r);
  for i := 2 to r do
  begin
  flag := true;
  for j := 2 to < i do
     if (i mod j = 0)
       flag := false;
  if (flag = true)
    write(i, " ");
  end;    
end.
egornefor
Новичок
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 01:01
  #7
сори...не посмотрел раздел)
System.exe
Форумчанин
88 / 84 / 2
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 01:24
  #8
Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
lexus_ilia
Форумчанин
3013 / 684 / 12
Регистрация: 24.09.2008
Сообщений: 1,528
06.11.2009, 04:22
  #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7682 / 2576 / 63
Регистрация: 17.10.2009
Сообщений: 5,112
06.11.2009, 05:31
  #10
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  i,r:integer;
{функция проверки на простое}
function Simple(x:integer):boolean;
var
  i:integer;
begin
  for i:=2 to x div 2 do
    if x mod i=0 then
    begin
       result:=false;
       exit
    end;
  result:=true;
end;
{основная программа}
begin
  writeln('Введите r:');
  readln(r);
  writeln('Простые:');
  for i:=1 to r do
    if Simple(i) then
      write(i,' ');
  writeln
end.
bital
Новичок
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 16:05  [ТС]
  #11
огромное всем спасибо!!!!!!!
Yandex
Объявления
06.11.2009, 16:05
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Вывести на экран все простые числа из промежутка целых чисел
Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем, и их общее количество.
Pascal ABC sergiusin 15.02.2014 10:39
Turbo Pascal Вывести на экран все простые числа из данного промежутка
Вывести на экран все простые числа из данного промежутка.
Turbo Pascal andreyua 14.02.2013 05:28
C++ Дано натуральное число. Вывести на экран все простые числа до заданного числа.
Дано натуральное число. Вывести на экран все простые числа до заданного числа.
С++ для начинающих Proga181 11.01.2013 20:37
C++ Одномерный массив. Вывести на экран все числа, индексы которых есть простые числа.
Нужно вывести на экран все числа заданной последовательности, индексы которых есть простые числа. Определить в заданной последовательности целых чисел количество чисел, которые являются простыми...
С++ для начинающих gnom604 27.12.2012 22:26
C++ Вывести на экран все числа заданной последовательности, индексы которых есть простые числа.
Вывести на экран все числа заданной последовательности, индексы которых есть простые числа. Определить в заданной последовательности целых чисел количество чисел, которые являются простыми числами.
С++ для начинающих gnom604 20.12.2012 03:12
Turbo Pascal Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Turbo Pascal Egors 26.04.2012 02:43
Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n
Составить программу с использованием цикла While (цикл с предусловием), которая является решением данной задачи.>>> Вывести на экран все простые числа от 1 до n.(Число является простым, если оно...
Turbo Pascal roven 18.05.2011 13:49
Pascal Вывести на экран все простые числа в диапазоне от 2 до N.
Здравствуйте,уважаемые форумчане! Обращаюсь к вам с просьбой помочь) Просто в информатике,особенно в программировании я - дуб дубом :D А для галочки выполнение этой задачи обязательно...А то...
Pascal (Паскаль) Walking Rainbow 23.04.2010 20:51
Опции темы

Текущее время: 16:50. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.