Задать вопрос
9 ноября, 02:48

Составьте программу поиска количества чисел в диапазоне от 40 до 60

+4
Ответы (1)
  1. 9 ноября, 03:52
    0
    function isPrime (num: integer) : boolean;

    begin

    result : = num > 1? true : false;

    for var i : = 2 to (num div 2) do

    if (num mod i = 0) then

    begin

    result : = false;

    break

    end;

    end;

    begin

    var list : = new List;

    var (n, i) : = (40, 0) ;

    var count : = 0;

    while (n < 61) do

    begin

    if isPrime (n) then

    begin

    list. Add (n) ;

    count + = 1;

    end;

    n + = 1;

    end;

    list. Println;

    writelnFormat ('Count = {0}', Count) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу поиска количества чисел в диапазоне от 40 до 60 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Решите задачи: 1) Составьте программу ввода элементов массива [1 ... 8] с клавиатуры и вывода на экран элементов массива с отрицательными значениями. 2) Составьте программу, которая заполняет массив а [1 ...
Ответы (1)
Решить не могу задачи по информатике: 1. Составьте программу ввода элементов массива h [1 ... 8] с клавиатуры и вывода на экран элементов с отрицательными значениями. 2. Составьте программу, которая заполняет массив h [1 ...
Ответы (1)
1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти сумму двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
Ответы (1)
Логическое "ИЛИ" называется? 1. логическая связка для поиска всех других слов, кроме указанного в запросе 2. логическая связка для поиска по всем словам 3. логическая связка для поиска по любому из слов Ответ:
Ответы (1)
1) Составьте программу вычисления сумму чисел от 1 до 100. 2) Составьте программу вычисления произведения чётных чисел от 1 до 10. 3) Составьте программу вычисления количества двухзначных нечётных чисел.
Ответы (1)