Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nastysh20011
01.06.2021 18:38 •
Информатика
Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).
Показать ответ
Ответ:
авлвк5
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 оценок)
Популярные вопросы: Информатика
fhtyf
22.08.2022 03:07
Встановіть співвідношення між командами і результатом їх виконання: Label1.Caption:=‘Я вивчаю інформатику’; ShowMessage(‘Я...
YDA2007
25.11.2021 17:09
До ть будь ласка АЛГОРИТМ ДУЖЕ ТРЕБА ВСЕ НА ФОТО...
Виктури
11.11.2022 15:07
● Ия / Жок ● ● Ия / Жок ●● Ия / Жок●...
Galiavey370
03.01.2023 23:38
Напишите программу, которая определяет, является ли переданное ей натуральное число простым (простое число делится только на 1 и само на себя). ОБЯЗАТЕЛЬНО СЕЛАТЬ...
SergeGu
25.12.2021 09:48
Используя диаграмму Венна, Сравните реляционные, иерархические и сетевые базы данных....
Lenika2len
03.12.2022 08:07
Постройте таблицы истинности для следующих логических выражений: 1. F=¬A&Bv¬B 2. F=(AvB)&¬A 3. F=XvY&¬X 4. F=X&¬(YvX)...
diankaa55
23.04.2020 07:11
Добрый день , с решение заданий в файле....
nastyskabaterfp08pfs
05.12.2021 12:08
Складіть програму Оцінки, у якій у текстове поле виводиться опис досягнутого рівня на основі шкільної оцінки: 1) 1, 2, 3 — початковий рівень; 2) 4, 5, 6 — середній...
ДарьяГ22
21.09.2020 13:41
На лугу паслось несколько коров .у них ног на 54 больше,чем голов.сколько коров паслось на лугу?...
Aleqs2005
21.09.2020 13:41
ответить на вопросы: 1) какое из свойств дождевых червей было использовано при строительстве подводных лодок? 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.