Задать вопрос
26 сентября, 06:50

Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC

+2
Ответы (1)
  1. 26 сентября, 08:22
    0
    Function IsPrime (n:longint) : boolean;

    var

    found:boolean;

    p:longint;

    begin

    if n<4 then IsPrime:=True

    else begin

    found: = (n mod 2=0) ;

    p:=3;

    while (not found) and (sqr (p) <=n) do

    begin found: = (n mod p=0) ; p+=2 end;

    IsPrime:=not found

    end

    end;

    var

    a, b, i:longint;

    begin

    Write ('Введите начало и конец интервала: ') ;

    Readln (a, b) ;

    for i:=a to b do

    if IsPrime (i) then Write (i,' ') ;

    Writeln

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Создать подпрограмму, которая получает в качестве аргумента целое число и проверяет, является ли оно совершенным.
Ответы (1)
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа. 2. Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки. 3.
Ответы (1)
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)