Требуется помощь с 2-мя программами

Тема в разделе "Perl программирование", создана пользователем MickThompson, 5 сен 2010.

Статус темы:
Закрыта.
  1. MickThompson

    MickThompson Гость

    Начал изучать Perl в институте. Сразу же понеслись лабы. 5 заданий сделал, а 2 не могу.

    1. Напишите программу, выводящую все порстые числа, не превышающие N.

    Как бы сделал только часть программы. Выводит она только числа 1 2 3 5 7. Дальше идти не хочет.

    Код (Text):
    #!/usr/bin/perl
    print "Vvedite chislo N=";
    $v31=<STDIN>;
    @v32=(1..$v31);
    for ($i=0;$i<=$v31;$i++)
    {
    if ($v32[$i]==1)
    {
    print $v32[$i], " ";
    }
    else
    {
    $pr=$v32[$i]/2;
    $pr2=$pr;
    if ($pr==1)
    {
    print $v32[$i], " ";
    }
    else
    {
    $pr=$v32[$i]/3;
    $pr3=$pr;
    if ($pr==1)
    {
    print $v32[$i], " ";
    }
    else
    {
    $pr=$v32[$i]/5;
    $pr5=$pr;
    if ($pr==1)
    {
    print $v32[$i], " ";
    }
    else
    {
    $pr=$v32[$i]/7;
    $pr7=$pr;
    if ($pr==1)
    {
    print $v32[$i], " ";
    }
    else
    {
    }
    }
    }
    }
    }
    }
    <STDIN>;
    Что нужно добавить, чтобы он выводил все простые числа. Будь список от 1 до 70, или от 1 до 300.
    Помогите доделать до рабочего или помогите найти алгоритм для нахождения.

    2. Напишите программу, находящую наибольший общий делитель двух чисел.

    Тут я даже не знаю что делать.



    Помогите пожалуйста
     
  2. MickThompson

    MickThompson Гость

    Дошёл до всего сам:) Тема не актуальна
     
Загрузка...
Похожие Темы - Требуется помощь мя
  1. MissPersefona
    Ответов:
    0
    Просмотров:
    801
  2. piranya85
    Ответов:
    0
    Просмотров:
    1.845
  3. panda8
    Ответов:
    0
    Просмотров:
    1.276
  4. Andrey Kha
    Ответов:
    0
    Просмотров:
    25
  5. Andrey Kha
    Ответов:
    0
    Просмотров:
    33
Статус темы:
Закрыта.

Поделиться этой страницей