паскаль. Цикли

[Yuryk26]

Дано просте число N . Знайти наступне просте число.

[MyLastHit]

Дано просте число N . Знайти наступне просте число.

Извините, но щито вы написали?О_о

[Alex11223]

Вероятно автор имел в виду "найти следующее" на украинском или каком-то похожем языке, но так торопился, что раскладку клавиатуры переключил, а перевести забыл)

[Serge_Bliznykov]

я Гуглом перевёл... с украинского:

Дано простое число N. Найти следующее простое число.

[veniside]

> раскладку клавиатуры переключил

это вы как определили?

По теме:

function isPrime(N: Integer): boolean;
begin
  // проверка числа на простоту, гуглится на форуме
end;

var
  N: Integer;
begin
  N := 11;
  //
  repeat
    inc(N, 2);
  until (isPrime(N));
  //
  // наступне просте число знайдено
  WriteLn(N);
end.

[Alex11223]

это вы как определили?

Имхо в словах "Цикли" или "знайти" должна быть хоть 1 укр. "i", хотя может быть и нет, украинского не знаю)


___________
по лезвию бритвы ходите, дорогие товарищи...
Это называется ФЛУД.
На вопрос veniside о языке отвечать было совсем не обязательно,
вопрос было риторическо-иронический...

Если дискуссия о языковедении продолжится - порубаю все сообщения топором.
Прошу учесть и не флудить...

Модератор.

[Mad_Cat]

veniside а если N=2 то следующее простое вы не получите никогда)
так что

inc(N);

все-таки

[veniside]

фак, верно, 2 ведь тоже простое.

inc(N);

не, ну это не серъёзно. Зачем чётные гонять туда-сюда. Проще уж один раз на 2 порверить начальное N перед циклом.