Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vika1852
10.08.2020 06:03 •
Информатика
Паскаль найти все простые числа меньшие заданного x
Показать ответ
Ответ:
DrNick
06.10.2020 04:28
Var x,i,j,k:integer;
begin
write('x = ');
readln(x);
writeln('Простые числа:');
for i:=2 to x-1 do
begin
k:=0;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then k:=k+1;
if k=0 then write(i,' ');
end;
end.
Пример:
x = 30
Простые числа:
2 3 5 7 11 13 17 19 23 29
0,0
(0 оценок)
Популярные вопросы: Информатика
Cat2081
02.04.2023 04:18
5. Сразных сторон на холм поднимаются три тропинки и сходят- ся на вершине. Перечислите множество маршрутов, по кото-рым можно подняться на холм и спуститься с него. Решите туже...
kalabukhovalina
22.10.2021 22:44
Установите соответствие понятий и определений. Граф, вершины или ребра (дуги) которого характеризуются дополнительной информациейГраф, вершины которого соединены дугами (линиями...
GreatGenius
24.03.2023 04:27
Написать программный код с использованием цикла for и while, для вывода чисел от 10 до 20. ...
Katysha1111111
05.05.2020 08:16
Какие параметры выделяются в формантных вокодерах? а) средние значения интенсивности огибающей Аi в узких спектральных каналах б) нижнею (Fн) и верхнею (Fв) граничные частоты...
Fotima100
11.12.2021 20:08
Какое минимальное количество дуг необходимо убрать у графа в задании про Петю, Сашу, Колю и Ваню, чтобы он стал деревом? Выберите один ответ: a. 4 b. 2 c. 3 d. 1...
tt9692069
20.03.2021 11:33
1) Составить программу, в которую мы вводим два числа. Программа спрашивает какое действие выполнить: 1. Умножение 2. Деление 3. Сложение 4. Вычитание Пользователь выбирает операцию,...
Julianne11
03.12.2021 23:05
Дано натуральное четырехзначное число, найдите наименьшую нечетную цифру в числовой записи данного числа....
самая29
04.11.2020 18:27
Сравните особенности карт сайта в формате html и в формате хml. Найдите сходства и различия....
Nerzul2828818
13.12.2022 23:16
Нарисуй в окне такую цепочку Ю, чтобы были истинными все утверждения:.. ...
Ananasabricos
02.08.2020 10:28
2. Даны переменные. Определите типы данных для каждой переменной и запишите тип данных и переменную...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('x = ');
readln(x);
writeln('Простые числа:');
for i:=2 to x-1 do
begin
k:=0;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then k:=k+1;
if k=0 then write(i,' ');
end;
end.
Пример:
x = 30
Простые числа:
2 3 5 7 11 13 17 19 23 29