Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vitalikprofi
17.10.2022 14:19 •
Информатика
Вывести простые числа в диапазоне от 1 до 100 (pascal)
Показать ответ
Ответ:
milashka44
07.10.2020 21:40
//Pascal
var
i, k, j: byte;
begin
for i := 2 to 100 do
begin
k := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
k := k + 1;
if k = 0 then
write(i, ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
creativeIgorek
28.02.2022 23:28
1)В системе счисления с некоторым основанием число 31( 10-я система) записывается в виде 111. Укажите это основаниеВыбрать ответ: 6,5,4,72)Какое десятичное число при записи...
Ритка121
31.03.2022 02:19
Будьте добры! 1)переведите число n из k-ой системы счисления в p-ичную систему счисления: n = 110432204,04130303; k = 5, p = 15 2) разделить числа, которые в троичной системе...
Лола666484
08.12.2020 10:58
Оформите программу на abc паскале, обеспечивающую: -заполнение одномерного массива a с клавиатуры n вещественными значениями; -за минимальное число проходов по массиву a последовательное...
dimagurkun2016
03.10.2022 15:31
Решите, , в ! № 20 маленький великан вася с каждой неделей может поднимать на 5 килограмм больше, чем в предшествующую неделю. в день м он поднимал 230 килограммов. сколько...
иван2054
12.02.2022 19:57
Как представлено число 243 в восьмеричной системе счисления?...
nastiaandreeva
11.12.2022 06:30
Два числа называются взаимно простыми, если они не имеют общего натурального делителя, кроме 1. иными словами, их наибольший общий делитель равен 1. найдите количество шестизначных...
Dasha78906543
31.05.2023 05:04
Покупатель решил потратить в магазине м тенге без остатка. ему необходимо приобрести три вида продукции, стоимость которых составляет x, y и z тенге соответственно. вывести...
Usdied
31.05.2023 05:04
Водной стране жил-был волшебный кузнечик, умеющий прыгать на любое расстояние. а ко¬гда он изучил тему «числовые последовательности», то решил прыгать по дороге с нумерованны¬ми...
olga15038
29.09.2022 07:03
Население города ежегодно увеличивается на k%. через сколько лет население города утроится?...
yartemok
29.09.2022 07:03
Найти сумму 4+9++m^2, лишь из слагаемых, меньших k....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, k, j: byte;
begin
for i := 2 to 100 do
begin
k := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
k := k + 1;
if k = 0 then
write(i, ' ');
end;
end.