Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
elenchik2006
22.09.2021 16:15 •
Информатика
Дано число а. определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)
Показать ответ
Ответ:
asdsssssssssss124
20.06.2020 02:33
Var a,i,k:integer;
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sem0001
09.10.2021 18:18
Бегун Вася в первый день пробежал X километров и Yметров. Во второй -А километров и К метров. Какое расстояние он пробежал за два дня? Решить задачу....
kery99
09.12.2021 14:45
На вход программе подаётся пять чисел, между которыми стоит знак * . Среди введённых чисел возможны числа, равные 0. Найдите произведение чисел без учёта нулей....
panteleevpetr67
26.06.2022 17:05
Миша решил называть числа «приятными», если в их записи участвуют только четные цифры. ему сосчитать количество 4-значных «приятных» чисел. решение обязательно,...
саидолим
26.06.2022 17:05
Вкаких целях при передаче файлов по компьютерным сетям производится их разбиение на интернет-пакеты? объясните, каким образом производится доставка данных по указанному...
кек945
26.06.2022 17:05
3. сверните калькулятор на панель . восстановите его на прежнем месте. обратите внимание на вид кноп¬ки развернуть/восстановить. о чём он говорит? ответ запишите...
superasmik2018
25.11.2022 05:49
Пользователь компьютера может вводить в минуту 200 знаков.мощность используемого алфавита равна 256.какое количество информации может ввести пользователь в компьютер...
соняпросоня
25.11.2022 05:49
Пользователь компьютера хорошо владеющий навыками ввода информации с клавиатуры может вводить в минуту 100 знаков. какое количество информации может ввести пользователь...
DrYgAn8998
04.02.2022 23:59
Уровень - оцениваниесовместная работа над интеллект-картой для лучшегоусвоения темы. для работы используйте полученныеданные мини-исследования из предыдущего .систематизируйте...
kseniyazoloto
15.03.2022 15:48
12. включите на место пропуска в предложении однородные члены в нужной форме и вводноеслово. запишите получившееся предложение, расставьте в нём необходимые знаки...
qmess10
25.01.2023 10:41
1. охарактеризуйте черты классицизма, романтизма или реализма в произведениях (на примере поэмы н.а. некрасова «кому на руси жить хорошо»)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
end.