Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
btsakhaev
08.03.2023 15:09 •
Информатика
Написать программу, которая проверяет , является ли целое число , введенное пользователем , простым. программа паскаль цикл с пост условием
Показать ответ
Ответ:
кент1346
29.06.2020 21:44
Program chet;
var i,k,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if n mod i = 0 then k:=k+1;
end;
if k=2 then writeln('число,',n,',натуральное')
else writeln('число,',n,',не натуральное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
marinovamari1
02.05.2020 12:38
Известный программист получил от своего друга сообщение, записанное всеми возможными символами используемого ими алфавита: zlxuzx& $no. ответное сообщение содержало в два раза...
clara2200
28.02.2022 09:22
Робо-сумо жарысында ультрадыбыс датчигі пайдаланылады себебі...
JugerHangerKrag
25.08.2021 17:55
Умоляю я не могу ничего сделать это ужас ...
СофикаКис
25.12.2022 05:19
Обязательно с выводами....
Vampire1234
02.08.2020 02:24
1. Кірістіру (Вставка) мәзірінде қандай команда жоқ А) Фигуры B) Ауысулар(Переходы) D) Кесте 2. Сурет (Рисунок) командасы не үшін керек А) бумалардан сурет алып қою үшін B) бумалардан...
mkudryavceva10
04.05.2020 13:31
https://nsportal.ru/shkola/informatika-i-ikt/library/2019/02/07/kontrolnaya-rabota-odnomernye-massivy-9-kl 2 Вариант, который начинается с этих заданий: 1. Что такое массив? Ограниченная...
Христинияголовн
01.07.2020 10:05
чепез Паскаль В одномерном массиве, заданном датчиком случайных чисел, подсчитать количество нулей. Размер 150...
лізахоменко2002
03.02.2020 12:02
Решить ! выполните операцию сложения над двоичными числами: а) 101010+1101; б) 1010+1010; в) 10101+111. заранее, большое !...
gevochki
03.01.2022 15:47
Перевести предложение, подчеркнуть сказуемое (и смысловой и вс глагол) 1. All yesterday morning they were preparing for test. 2. My friend will go to the library next week. 3. We got...
АэлинкаМалинка
19.05.2020 10:38
Знайдіть суму пяти перших геометричної прогресії b3=12 b6=324...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,k,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if n mod i = 0 then k:=k+1;
end;
if k=2 then writeln('число,',n,',натуральное')
else writeln('число,',n,',не натуральное');
end.