Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Viktyfox17
20.08.2020 04:03 •
Информатика
Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры.
Показать ответ
Ответ:
vitaska1971oz3tq3
04.10.2020 22:01
Var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
pro63
18.01.2020 03:41
С какого элемента управления можно изменить цвет букв выделенного слова...
armanpozitiva
02.03.2022 14:48
Запиши последовательность действий для размещения объектов на слайде...
Аккаунт удален
18.09.2022 09:05
реши задачу с Известно, что продолжительность сериала в минутах составляет 1000мин. Выведите данную продолжительность в виде часы минуты (используя операции //, %)...
gasersazru
19.11.2021 20:05
Дана блок схема какое значение будет иметь z на выходе, если х = 18 ( При решении и ответе округляйте цифры до десятых )...
catttttttttttttttttt
20.11.2022 07:33
Пример ввода для gcd(a,b):10 15Пример вывода:5...
AnnyMay2629
11.06.2020 22:41
Информатика если есть те, кто понимает что-то в python, то Если S принимает эти значения: 1.S =854; 2. S =701; 3. S =1297 то результат программы?S=int(input())P=0K=S //100;...
nadiacolupaeva
11.03.2021 13:35
очень нужно Выберите ошибочное утверждение: 1. Если каждый элемент массива определяется с одного номера, то такой массив называется одномерным; 2. в двумерных массивах первый...
hmrl123
28.10.2021 06:58
Карточка № 10 1).Вставьте пропущенные буквы и знаки препинания. 1. К...ротка летняя пора на север... тундры. 2. В ма... еще в воздух... B...ЮТ...ся сн...жинки бушуют буйные...
mila336
16.04.2023 22:58
Сказаў. Складаныя сказы з рознымі відамі сувязіСпішыце сказы, пастаўце прапушчаныя знакі прыпынку. Складзіце схемы1. Гартуйце душы вашы каб халодны сівер іх не змарозіў каб...
Aleshchksuni
28.12.2022 16:21
Напишите эссе-рассуждение на тему«Звёздная страна, или почему надо чаще смотреть на ночное небо» 100-120 слов ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;