Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
abaevadilnaz
20.09.2021 17:17 •
Информатика
Тема: integer : дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя). )
Показать ответ
Ответ:
anonimka2018oz5x7j
01.10.2020 23:58
Var i: integer; x: boolean; n: integer;
begin
readln(n);
for i:= 2 to n - 1 do
begin
if n mod i = 0 then
x:= true;
end;
if (x = false) and (n <> 1) then
writeln('yes')
else
writeln('no');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dashylasonimova128
03.07.2021 10:52
Якого типу може бути індексна система (а цілий. (б дійсний. (в літерний. (г логічний...
Викитирон
05.02.2023 03:21
Информатика каким образом производится поиском документов по ключевым словам? в системе каталогов...
TearPrincess2
13.03.2022 03:44
Какое наименьшее число ладей можно расставить на шахматной доске из n^2 клеток так,чтобы эти ладьи держали под угрозой все поля доски?...
Masha2017thebest
10.10.2022 00:48
1) выберите существующие режимы веб-страницы а)код б)с разделением в)конструктор г)режим ввода д)просмотр 2)a)что такое web-сайт б)основные элементы интерфейса приложения...
СуПерКотАйН
21.06.2022 19:52
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку C8. =$A5+B$2 =$A$5+$B$2 =$A$5+B$2 =A$5+B$2 =A$5+$B2...
Karina121334
14.09.2022 10:08
Знайти суму членів S =1:a +1:a2+1:a3+...+1:a2, якщо n =10,a =3...
flimas
25.07.2022 11:28
Сколько будет 2,88 округлить до сотых...
тик12345
25.07.2022 11:28
Виноград сорту кишмиш розклали в ящики по 6 кг, а сорту iзабела по 9кг . усього наповнили 40 ящикiв. скiльки ящикiв кожного сорту, якщо мама винограду кожного сорту однакова?...
Vika15511
25.07.2022 11:28
Мини сочинение (10-12 предлож.) на тему ”научись беречь хлеб”. заранее !...
dilovardustiev1
25.07.2022 11:28
Сөйлем керек күмбір-күмбір күй төкті 6в нын окушысы ерсик...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
for i:= 2 to n - 1 do
begin
if n mod i = 0 then
x:= true;
end;
if (x = false) and (n <> 1) then
writeln('yes')
else
writeln('no');
end.