Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
LanaAnn
27.12.2022 23:40 •
Информатика
Синформатикой. желательно с объяснением. во вложениях.
👇
Увидеть ответ
Открыть все ответы
Ответ:
lllgglll
27.12.2022
Const
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.
4,8
(27 оценок)
Ответ:
Vladisimus
27.12.2022
Простые числа от 5584 до 6654. В скобках после каждого я поставил его сумму цифр, а в конце строки количество четных:
5591(20), 5623(16), 5639(23), 5641(16), 5647(22), - 4
5651(17), 5653(19), 5657(23), 5659(25), 5669(26), - 1
5683(22), 5689(28), 5693(23), 5701(13), 5711(14), - 3
5717(20), 5737(22), 5741(17), 5743(19), 5749(25), - 2
5779(28), 5783(23), 5791(22), 5801(14), 5807(20), - 4
5813(17), 5821(16), 5827(22), 5839(25), 5843(20), - 3
5849(26), 5851(19), 5857(25), 5861(20), 5867(26), - 3
5869(28), 5879(29), 5881(22), 5897(29), 5903(17), - 2
5923(19), 5927(23), 5939(26), 5953(22), 5981(23), - 2
5987(29), 6007(13), 6011(09), 6029(17), 6037(16), - 1
6043(13), 6047(17), 6053(14), 6067(19), 6073(16), - 2
6079(22), 6089(23), 6091(16), 6101(08), 6113(11), - 3
6121(10), 6131(11), 6133(13), 6143(14), 6151(13), - 2
6163(17), 6173(17), 6197(23), 6199(25), 6203(11), - 0
6211(10), 6217(16), 6221(11), 6229(19), 6247(19), - 2
6257(20), 6263(17), 6269(23), 6271(16), 6277(22), - 3
6287(23), 6299(26), 6301(10), 6311(11), 6317(17), - 2
6323(14), 6329(20), 6337(19), 6343(16), 6353(17), - 3
6359(23), 6361(16), 6367(22), 6373(19), 6379(25), - 2
6389(26), 6397(25), 6421(13), 6427(19), 6449(23), - 1
6451(16), 6469(25), 6473(20), 6481(19), 6491(20), - 3
6521(14), 6529(22), 6547(22), 6551(17), 6553(19), - 3
6563(20), 6569(26), 6571(19), 6577(25), 6581(20), - 3
6599(29), 6607(19), 6619(22), 6637(22), 6653(20). - 3
Всего 120 простых чисел, из них 57 имеют четную сумму цифр.
4,7
(75 оценок)
Это интересно:
З
Здоровье
13.01.2022
Как правильно покормить ребенка при диарее...
К
Компьютеры-и-электроника
24.01.2021
Как подтвердить аккаунт YouTube: подробное руководство для начинающих...
О
Образование-и-коммуникации
25.10.2020
Как подкислить почву: советы, рекомендации, идеи...
Д
Дом-и-сад
28.09.2020
Как удалить кофейное пятно с шелка: лучшие способы...
З
Здоровье
30.09.2022
10 способов использования эфирных масел для улучшения вашего здоровья и красоты...
К
Компьютеры-и-электроника
05.06.2023
Узнайте, как скачать ролики с YouTube, используя Chrome...
Х
Хобби-и-рукоделие
29.07.2020
Как сделать буклет из бумаги: пошаговая инструкция для начинающих...
22.07.2022
Боязнь высоты: как преодолеть её и наслаждаться жизнью...
Х
Хобби-и-рукоделие
01.01.2022
Как сделать купальник: советы от профессионала...
К
Компьютеры-и-электроника
15.06.2021
Как открыть программу Terminal на Mac...
Новые ответы от MOGZ: Информатика
Ozerck2002
25.09.2021
ПАМАГИТЕ ПАЦАНЫ АААААААААААААААААА...
kazhizhanov
26.07.2021
Сколько мА в самой ПЛОХОЙ камере телефона?...
sabinagamzaeva
29.07.2021
Заполнить двумерный массив 5*5 случайными числами. найти суммы нечетных элементов(значение элементов)...
kirill884
16.06.2022
Даны 30 целых чисел. найти сумму отрицательных и сумму положительных чисел. сделать с операторами сначала for , потом repeat....
26040717
15.04.2020
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел кратных 6 и оканчивающихся на 4. программа получает на вход количество чисел...
tarasyukov
15.04.2020
Алфавит состоит из 8 букв. сообщение, записанное буквами данного алфавита состоит из 40 символов. какой объем информации несет сообщение?...
lehmannastyaaovt8b2
15.04.2020
Вкаких случаях переменной перед использованием присваивают значения ноль (0) или один (1)? объясните почему....
axaz227
15.04.2020
Выразить 19 кбайт в битах и 15 байт в битах...
Apelsinka0986
15.04.2020
Напишите функцию, которая позволяет вычислить корень любой натуральной степени. само число и степень корня – параметры функции. , надо!...
Random00700
30.04.2023
Построй на экране с исполнителя Чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата: использовать Чертёжник алг площадь_1 нач цел a вывод...
MOGZ ответил
Решите неравенство графически...
Сократить (x^2-yz+xz-y^2)/(x^2+yz-xz-y^2)=...
Дедушка емельян знал все лесные тайны.дед находил лисьи, волчьи,заячьи следы...
Среднее ухо имеется у: a)карпа б)воробья в)миноги г)травяной лягушки д)леопарда...
Наименьшее давление крови регистрируется в: а) аорте; б) крупных артериях;...
Составте схему предложения лодишься на спину, смотришь в небо...
Желательно, сделать на бумаге, умоляю....
Примеры простых веществ неметаллов с разным агрегатным состоянием...
Встреча в тайге. набрел я на поляну в тайге. от лесного она опустела, но...
Скласти текст (6-7 речень) на історичну тему, використовуючи: речення зі...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.