Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MrKepka
27.07.2020 09:35 •
Информатика
Дано простое число. найти следующее за ним простое число.программа паскаль
Показать ответ
Ответ:
TATARNH7
08.09.2020 11:55
Var
a,i,b:integer;
begin
readln(a);
while (b>0)
begin
for i:=2 to a
begin
if ((a mod i)=0) then b:=b+1;
end;
a:=a+1;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
сашуня29
12.07.2022 09:51
Бітова частота звукового файла дорівнює 128 кбіт/с. Час тривалості звучання файла 5 хвилин. Який обсяг файлу ...
BrookIyn
21.10.2022 11:43
Создвть программу в python. ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом). (p.s. не используя...
iljarybackov20
06.03.2021 03:40
Составьте предложение со словами: растение,легенда,примула,расцветать ,вулкан надо...
АВатар1765
06.03.2021 03:40
9. какие правила приготовления пищи нужно соблюдать для сохранения ее полезных свойств и профилактики инфекционных заболеваний?...
SadDorry
06.03.2021 03:40
Как найти i,если известны k и дано: k=1024*512 i=1,5 мб найти n-?...
Nikitymba
06.03.2021 03:40
7разбор номер 3 промолвила (девочка) зарание больше...
gasi20022
06.03.2021 03:40
Что называется природным компонентом?...
1Ростиславка
06.03.2021 03:40
Напишите молекулярные уравнения реакций, соотвествующие схеме превращений: сульфат бария - оксид серы - серная кислота - сульфат натрия для молекулярного уравнения перехода...
belorus70oxm1t1
06.03.2021 03:40
Решите поподробнее sin22•sin68/2cos23-1...
fma060429
06.03.2021 03:40
Антон павлович чехов,что мне понравилось в его рассказах ,,толстый и тонкий’’ и ,,хамелеон’’ не надо писать пересказ, много писать тоже не надо. заранее большое...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,i,b:integer;
begin
readln(a);
while (b>0)
begin
for i:=2 to a
begin
if ((a mod i)=0) then b:=b+1;
end;
a:=a+1;
end;
writeln(a);
end.