Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
3toH
21.07.2022 04:36 •
Информатика
Напишите программу, которая выводит все простые числа в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ). pascal
Показать ответ
Ответ:
lukash231082
05.10.2020 10:11
Var
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d <> 0 do d := d + 1;
if x = d then write(x,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
wella5555
29.04.2022 16:09
Предложите не менее 5 конструкций для выбора данных по признаку....
Зара7878
04.08.2022 01:33
Контрольная по информатике 1. База данных - это ... a) совокупность программ для хранения и обработки больших массивов информации b) это хранилище данных о некоторой...
ruchina89
25.01.2021 06:04
Дано масив на малюнку. Визначте результат виконання фрагмента програми:S := 0;For i := 1 to 5 do If i mod 2 =0 Then S := S+ A[i];Позначте одну правильну відповідь....
kostrigina2001
10.08.2021 09:06
Нужно составить программу в си++. вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11,...
BakerTaka
12.11.2021 16:14
нужно сложить x и y в модифицированном обратном и модифицированном дополнительном восьмиразрядных кодах. в случае появления признака переполнения увеличить число разрядов...
riblika11
18.05.2021 11:50
X4и (x1 и x2 или не x2 и не x3) построить таблицу истинность и логистическую схему, !...
Telman07
20.01.2021 18:16
Нужна помщь, если не понятен почерк, пишите в ! ...
uosup81821
22.06.2021 00:11
Вопрос Укажите наибольшую дробьУкажите правильный вариант ответа:9842 74 4914 12690...
sveta7185684p0dufr
16.12.2020 16:58
Запышить розвязок неривности....
зима19
24.01.2023 04:07
Подберите к каждому существительному подходящее по смыслу прилагательное и запишите его в нужной форме. 1) с белками 3) к клену 2) под крышей 4) из озера...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d <> 0 do d := d + 1;
if x = d then write(x,' ');
end;
end.