Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
09nika90
18.06.2022 00:35 •
Информатика
Паскаль. вывести на экран все простые числа до k. число k вводится с клавиатуры. заранее .
Показать ответ
Ответ:
малый6
21.09.2020 17:55
var
a,flag:array[1..10000]of integer;
i,n,k:integer;
begin
readln(k);
for i:=1 to k do
a[i]:=i;
for i:=2 to k do
if flag[i]=0 then
begin
write(a[i],' ');
for n:=i+1 to k do
if n mod i = 0
then flag[n]:=1;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ВИТ21
13.03.2022 10:28
.Таня набирает на компьютере очень длинное предложение. Курсор уже приблизился к концу строки, а девочка должна ввести еще несколько слов. Что следует предпринять...
Kotikocerdechko
26.11.2021 20:15
мне надо отправить через полтора часа...
aliyenneqi
27.02.2022 09:19
Дан программный код, а-int (input()) if 1) print( гксь ) elif print( cобака ) else: print( нет существует ) : Укажите соответствующее условие из списка правильных...
Podoplel
19.02.2023 12:30
Составить блок-схему алгоритма и программу на Паскале для вычисления функций y(x). Ввести программу, вычислить значения функции и проверить ее. В отчет включить блок-схему...
такко
19.05.2022 16:52
Переведите числа в десятичную систему счисления. а) 1110001112; б) 1000110112; в) 10011001012; г) 10010012; д) 3358; е) 14C6....
arusy
14.01.2021 19:07
Тахауи Ахтановтың Күй аңызы әңгімесі мен Роза Мұқанованың Мәңгілік бала бейне әңгімесіндегі материалдық және рухани құндылықтарды салыстыра талдаңыз...
Максим5955
11.04.2021 18:33
ОЧЕНЬ НУЖНО А) Перечислите политические успехи московских князей, которые позволили возвысить Москву над другими княжествами, укажите не менее 3 князей. ответ оформите...
дильназ152
14.04.2020 09:12
Висота циліндра на 2 см менша за його радіус. Площа бічної поверхні циліндра дорівнює 160Псм2 . Знайдіть площу перерізу циліндра, побудованого паралельно його осі...
юлия20043
09.06.2021 01:22
Контрольний твір мандрівний замок хаула ( )...
sergei19671
08.03.2023 06:26
( Школьный сделать практикум по физике, задание смотрите на листе с рисунком, все остальные листы - ткория...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,flag:array[1..10000]of integer;
i,n,k:integer;
begin
readln(k);
for i:=1 to k do
a[i]:=i;
for i:=2 to k do
if flag[i]=0 then
begin
write(a[i],' ');
for n:=i+1 to k do
if n mod i = 0
then flag[n]:=1;
end;
end.