Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
littleeeprincess
24.01.2020 00:15 •
Информатика
Дано натуральное число определить является ли оно пррстым или составным?
Показать ответ
Ответ:
tanya1502
03.10.2020 21:53
VAR
a, m, i: integer;
BEGIN
read(a);
for i:=1 to a do
if a mod i = 0 then m:=m+1;
if (m = 2) and (a <> 2) then write('число ', a, ' простое')
else write('число ', a, ' составное');
END.
вроде правильно, но проверь в паскале, а то у меня програмки нет на компе
0,0
(0 оценок)
Популярные вопросы: Информатика
dpil900dima
20.02.2023 03:19
. Информационный объём электронной книги равен 70216 бит. Найди сколько символов содержится в алфавите, с которого написана эта книга, если в ней 35108 символов?...
leger13245
05.03.2021 22:49
Составьте блок схему вычисления целых чисел из промежутка , программируем на питоне (8 класс)...
Боженька206
17.06.2022 04:04
на языке Python. Boss Вы проходите собеседование в одну крупную компанию, иерархия этой компании представляет собой Двоичное дерево. Но с маленькой особенностью: у сотрудника...
shenikov2003
19.04.2022 10:52
Как,имея 2 сосуда емкостью 3 и 5 литров. как с этих кувшинов отмерить ровно 1 литр жидкости...
дарууунчик
12.05.2020 13:32
Ребята, 3 задания из пробника по информатике...
ccfnwj3662
11.05.2021 18:33
Дан фрагмент программы: a = 10 b = a +1 a = b – a print (а, b) Какие числа будут выведены на экран компьютера?...
Ania07
15.09.2020 05:34
нужно РАЗВЁРНУТОЕ решение задачи: Регина составляет 5-буквенные коды из букв Р. Е, Г, И, Н, А. Буквы Р и Г нужно обязательно использовать ровно по одному разу, букву Н можно...
isheh09ow2mth
28.12.2021 20:49
Решите с подробным объяснением....
Gambuker
19.12.2022 01:40
Высказывание а → в ложно тогда и только тогда, когда … а) а истинно, а в ложно б) а и в в) а ложно, а в истинно г) а и в истинны...
SofiZ2005
19.12.2022 01:40
Пользователь вводит три числа a,b,c . ввести максимальное и минимальное из них (p.s c++)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, m, i: integer;
BEGIN
read(a);
for i:=1 to a do
if a mod i = 0 then m:=m+1;
if (m = 2) and (a <> 2) then write('число ', a, ' простое')
else write('число ', a, ' составное');
END.
вроде правильно, но проверь в паскале, а то у меня програмки нет на компе