Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gazelle116
02.05.2023 18:36 •
Информатика
Написать программу, которая проверяет , является ли целое число , введенное пользователем , простым. программа паскаль цикл с пост условием
Показать ответ
Ответ:
Marina12971
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 оценок)
Популярные вопросы: Информатика
SuperMaksni4ic
15.04.2022 23:57
Задача 1 Программа на языке Паскаль: var x, y, b: integer; begin write ( Input first number: ); readln (x); write ( Input second number: ); readln (y); writeln ( x = , x, , y =...
дамчок
10.04.2022 16:37
Изучить фрагмент задачи «Проверь и найдите ошибку в операторах на языке Паскаль, посчитай. var s,k: integer; begin s = 0; for k := 3 to 7 do s = s + 6; writeln(s); end....
Gosha346
13.03.2021 12:42
с тестом по информатике! Беспроводной канал для обеспечения связи с Интернет:1) Hi-Fi;2) Wi-Hi;3) Wi-Fi;4) Wi-Bi. 2. Правила доступа к информации на сервере устанавливает:1) администратор...
Linkin251
24.07.2020 10:47
Var x, y, b: integer; begin write ( Input first number: ); readln (x); write ( Input second number: ); readln (y); writeln ( x = , x, , y = , y); writeln ( Changing values... changing...
Andrey2421
14.02.2023 22:34
Какой информационный объем пословицы, если она набрана в кодировке КОИ-8: UNICODE ответ дайте в байтах С книгой поведешься - ума наберешься...
TEM1KK
20.11.2021 10:32
Отметьте ложные утверждения для языка программирования паскальточка с запятой является окончанием оператора в программе всегда должен присутствовать блок описанных данных после...
lenok140
03.12.2021 03:21
Отгадайте загадки. 1. черный ивашка, деревянная рубашка, где носом поведет там заметку кладет. 2. зубы точит, в полу дверь сделать хочет. в каждом слове-отгадке выделите последний...
анастасия1573
03.12.2021 03:21
Как расставить коэффициенты в реакциях? объясните мне !...
aleksandrantonov
03.12.2021 03:21
Составьте молекулярное и ионно-молекулярное уравнение для реакции, происходящей при взаимодействии водных растворов хлорида железа(3) и гидроксида натрия...
taisiachervatuk
03.12.2021 03:21
Задай вопросы к этим предложениям . 1.you drink tea with milk . 2. i usually go to bed at 9 o clock . 3.he likes coffee. 4. we often eat lunch in the park. 5.she doesn t like cheese....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.