• Составить программу на Паскале поиска и вывода всех простых чисел от 2 до 100.
    Проверкой каждого числа из этого интервала на простоту.
    При этом НЕ использовать решето Эратосфена.
    И НЕ это, но что-то похожее)):
    for i:=1 to n do
    begin
    j:=2;
    lim:=round(sqrt(i));
    while (i mod j <> 0) and (j <= lim) do inc( j );
    if (j > lim) then write( i,' ' );
    end;

Ответы 6

  • Var i, j, z:integer;BeginFor i:=2 to 100 do Begin Z:=0; For j:=2 to i div 2 do If (i mod j=0) and (i<>2) then begin z:=1;break; end; If z<>1 then writeln(i); End; Readln() ;End.
    • Автор:

      tristan
    • 5 лет назад
    • 0
  • ??
  • Программа для turbo pascal
    • Автор:

      castaneda
    • 5 лет назад
    • 0
  • А моя не подходит?)
    • Автор:

      sage24
    • 5 лет назад
    • 0
  • Подходит)
    • Автор:

      mikaela
    • 5 лет назад
    • 0
  • Как-то так:VVVVVVVVVVVV
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years