Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2011, 01:03   #1
Yuryk26
 
Регистрация: 14.04.2011
Сообщений: 7
Печаль паскаль

Дано простое число n.Найти следуючее простое число.
Yuryk26 вне форума Ответить с цитированием
Старый 19.04.2011, 02:12   #2
Акоб
Форумчанин
 
Регистрация: 10.01.2011
Сообщений: 243
По умолчанию

А почему здесь?
Код:
bool t = true;
int a = n;
while(t)
{
    a++;
    for(int i = 2; i < a / 2; i++)
          {
               if( a % i = 0)
                 {
                          t = true;
                          break;
                 }
                t = false;
          }
}
cout<<а<<endl;
Код:
var a,n,i:integer; t:boolean;
begin
readln(n);
t := true;
a := n;
while t = true
begin
       a := a + 1;
       for i := 2 to (a div 2) do
       begin
           if (a mod i) = 0 then
           begin
                     t := true;
                     break;
           end
       end
end
writeln(a);
end.

Последний раз редактировалось Акоб; 19.04.2011 в 13:47.
Акоб вне форума Ответить с цитированием
Старый 19.04.2011, 09:12   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
А почему здесь?
Акоб, имхо, зря Вы отвечали...
ему всё равно что и где писать. Лишь бы задачу решили!


p.s. ничего не понимаю в C
но ведь этот цикл, где i начинается от 1
Цитата:
Код:
   for(int i = 1; i < a / 2; i++)
          {
               if( a % i = 0)
всегда даст остаток от деления на единицу ноль...
т.е. все числа данная функция вернёт как true
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.04.2011, 13:46   #4
Акоб
Форумчанин
 
Регистрация: 10.01.2011
Сообщений: 243
По умолчанию

На счет ответа тоже с вами согласен.

Я не правилно написал.Уже исправил.
Писал здесь и не компелировал.

Последний раз редактировалось Акоб; 19.04.2011 в 13:50.
Акоб вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
Паскаль rav1lya Паскаль, Turbo Pascal, PascalABC.NET 0 08.04.2009 15:17
Паскаль... Need Help Chih Помощь студентам 4 30.05.2008 16:37