Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
даша084
11.03.2022 07:02 •
Информатика
Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).
Показать ответ
Ответ:
nikakrasovska
01.07.2020 21:54
var a, i:integer;
procedure del(i:integer; var a:integer);
var j :integer;
begin
a:=0;
for j:=1 to i do
if i mod j = 0 then inc (a)
end;
begin
writeln;
for i:=2 to 1000 do
begin
del(i,a);
if a=2 then write (i, ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MoDeRFeeD3
18.10.2020 21:06
Для хранения несжатого растрового изображения размером 64x64 пикселя отвели 512 байтов памяти. каково максимальное возможное число цветов в палитре изображения?...
ЕлизаветаВернер
13.03.2023 10:20
У исполнителя Бета две команды, которым присвоены номера;1. Прибавь b 2. Умножь на 2(b - неизвестное натуральное число) Выполняя первую из них,Бета увеличивает число на экране...
dazz4
18.05.2021 07:09
Решить задачу на языке C++: - Задан массив слов. Напечатать те слова этого массива, которые встречаются в этом массиве только один раз....
вита4321
08.07.2021 10:49
Одним из самых часто изпользуемых сенсаров является датчик Он предназначен для того, чтобы принцип его работы заключается в том, что В повседневной жизни мы можем встретить его...
Fateev20067
12.05.2020 18:27
Задан массив из 10 целых чисел. написать программу которая находт -сумму всех элементов массива -колличество чётных и нечётных элементов массива...
gladchenko77
23.08.2022 11:19
Схема это какой вид данных ? информатика 4 класс...
Мокааа585
27.01.2022 09:43
Составить программу, заполняющую массив из 10 элементов, числовой последовательностью. 1,4,9,...
ukimui123
31.10.2020 20:54
Решите : квадрат, круг, ромб и треугольник вырезаны из белой, синей, красной и зелёной бумаги. известно,что круг не белый и не зелёный; синяя фигура лежит между ромбом и красной...
bugrysheve
17.04.2021 08:55
Составить линейный алгоритм вычисления y по формуле y=3x-(2x+1),при x=3...
akerkeserikbai
16.11.2022 17:49
40 люди добрые, с паскалем. нужно составить программы 1) дано число х. уменьшить его на 10, если число находится в интервале (10; 100]. увеличить его в 2 раза, если число меньше,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
procedure del(i:integer; var a:integer);
var j :integer;
begin
a:=0;
for j:=1 to i do
if i mod j = 0 then inc (a)
end;
begin
writeln;
for i:=2 to 1000 do
begin
del(i,a);
if a=2 then write (i, ' ');
end;
end.