Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dasha5901
13.09.2022 10:55 •
Информатика
Дано число а. определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)
Показать ответ
Ответ:
Дмитртй11
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 оценок)
Популярные вопросы: Информатика
Тучка12
04.12.2021 04:46
На съемки итальянского художественного фильма были приглашены 4 кинозвезды: из голливуда (г), испании (и), японии (я) и канады (к). в ответ на приглашение кинозвезды...
khgssfghdwwcnoy
01.02.2020 11:23
Перевести в двоичную и восьмеричную системы шестнадцатеричные числа 1) 1010,10116 2) 1авс,9d16...
RenoGant
21.10.2021 07:49
Сообщение набранное на компьютере занимает 75 страниц по 25 строк в каждой строке записано буквами из 128 символьного алфавита...
87009522377
16.06.2022 16:32
Алгоритм просмотра содержимого папки...
Nikslava
29.11.2020 20:29
Какое количество информации несет в себе сообщение о том, что нужная вам компьютерная программа находится на одной из семи дискет?...
vladimirrr74
21.06.2020 16:55
Требуется поменять местами первый элемент массива с максимальным. входные данные в первой строке вводится одно натуральное число, не превосходящее 1000 — размер массива....
2006Liora
12.05.2023 19:28
Построить блок схему алгоритма вычисления площади треугольника по формуле герона где р полупериметр треугольника со стронами а.в.с...
576474811624
12.05.2023 19:28
(pascal abc) в один из летних дней аркадий со своими родителями отправился в автомобильное путешествие. он надеялся, что за городом им удастся избежать ненавистных...
kuansh4
04.09.2020 17:57
Сколько килобайт информации содержит сообщение объемом 2^24 (степени) бит? знающие, объясните, как это что, 2 мне придется сначало возводить в 24 ст. и делить и т.д.?...
kitecat12
04.09.2020 17:57
Нужно до завтра: 1.на плоскости заданы своими координат n точек. составить программу, определяющую между какими из пар точек самое большое расстояние. указание: координаты...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.