Вход
Регистрация
О проекте Как заработать?
34

Ввести с клавиатуры натуральное число N, не превосходящее 10^9

infoivi 12 февраля 2023

Ввести с клавиатуры натуральное число N, не превосходящее 10^9. Вывести все простыечисла из диапазона [1… N].

категория: информатика
ответить
в избранное

44

VarN,i: integer; beginwriteln ('Введите число'); readln (N); for i: =1 to n dowrite (i,'); end.

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
revzi
12 февраля 2023
1
ответ
Компьютер вышел из строя. Известно, что: 1) Если монитор неисправен, то исправна видеокарта, но неисправна оперативная память. 2) Если видеокарта исправна, то исправна оперативная память, но неисправнее монитор. 3) Если оперативная память исправна, то исправна видеокарта, но неисправен монитор. Исправен ли монитор?
mackamuro
12 февраля 2023
1
ответ
Задача по Паскалю. Дан двумерный массив: a: array[1… 5,1… 5] of integer. Все нечетные столбцы сделать единичными, вывести ответ в видетаблицы.
crust
12 февраля 2023
1
ответ
Информатика, логика, 9 класс, помогите! Сколько различных решений имеет уравнение (K/\L/\M) \/ (¬L/\¬M/\N)=1 где K, L, M, N — логические переменные? Вответе не нужно перечислять все различные наборы значений K, L, M и N, при которых выполнено данное равенство. В качестве ответа нужно указать только количество таких наборов.
zvaerg
12 февраля 2023
1
ответ
1. При угадывании целого числа от 1 до N было получено 9 бит информации. Чему равна N?! 2. В корзине лежат 20 шаров 10 синих 5 зеленых 4 желтых и 1 красный. Сколько информации несет сообщение о том что из ящика случайным образом достали шар?!
krespo
12 февраля 2023
1
ответ
Составить программу на Паскале сортировки массива по возрастанию
defimov
12 февраля 2023
1
ответ
1. Дана строка символов. Напечатать новый текст, удалив из старого символы, находящиеся внутри круглых скобок. Скобки тоже удалить. Подсчитать количествоудаленных символов. Предполагается, что внутри каждой пары скобок других скобок нет 2. Начертите блок-схему и напишите паскаль-программу для решения следующей задачи: «Ввести текст длиной до 254 символов. Вывести на экран слова, начинающиеся с заглавной буквы. Количество таких слов также вывести на экран». Нужна полностью написанная программа
vendue
12 февраля 2023
1
ответ
Помогите решить, цикл с параметром, S: =√2+√2+… +√2, n-корней
maxhim
12 февраля 2023
1
ответ
Напишите двоичную систему счисления: 31353724125
russia
12 февраля 2023
1
ответ
1. Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.2. Дано двузначное число. Определить кратна ли трем сумма его цифр.3. Известен рост трех человек. Определить, одинаков ли он.
Задайте свой вопрос

ПОПУЛЯРНОЕ
revzi, 12 февраля 2023
Компьютер вышел из строя
mackamuro, 12 февраля 2023
Задача по Паскалю. Дан двумерный массив: a: array[1… 5,1…
crust, 12 февраля 2023
Информатика, логика, 9 класс, помогите!
zvaerg, 12 февраля 2023
1. При угадывании целого числа от 1 до N было получено 9 бит информации. Чему равна N?
krespo, 12 февраля 2023
Составить программу на Паскале сортировки массива по возрастанию
defimov, 12 февраля 2023
1. Дана строка символов. Напечатать новый текст, удалив из старого символы, находящиеся внутри круглых скобок
vendue, 12 февраля 2023
Помогите решить, цикл с параметром, S: =√2+√2+… +√2, n-корней
maxhim, 12 февраля 2023
Напишите двоичную систему счисления: 31353724125
russia, 12 февраля 2023
1. Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным…
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...