Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Rashidleo
24.05.2021 08:03 •
Информатика
Информатика, объясните, как это работает)))
👇
Увидеть ответ
Открыть все ответы
Ответ:
lllgglll
24.05.2021
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
24.05.2021
Простые числа от 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 оценок)
Это интересно:
К
Компьютеры-и-электроника
05.11.2022
Хочешь создать свою банду в GTA San Andreas? Просто следуй этим шагам!...
В
Взаимоотношения
23.05.2020
Хитрость как искусство: Как стать хорошим лжецом...
25.05.2020
Как изменить размер глаз в азиатском стиле: лучшие способы для мгновенного результата...
Д
Дом-и-сад
15.08.2022
Как устранить пожелтение воды: легкие шаги для чистой воды в вашем доме...
З
Здоровье
29.04.2020
Повышенная чувствительность зубов: как определить и что с этим делать?...
К
Компьютеры-и-электроника
01.01.2021
Как перейти с платной версии AVG на бесплатную (в Windows)...
Д
Дом-и-сад
20.04.2023
Как правильно выбрать и купить матрас из пены с памятью?...
К
Компьютеры-и-электроника
20.03.2023
Как легко и быстро писать текстовые сообщения через Gmail...
Д
Дом-и-сад
16.09.2021
Как очистить потолок от копоти: лучшие методы и рекомендации...
К
Компьютеры-и-электроника
20.12.2022
Как рассчитать наклон линии линейной регрессии в Excel: шаг за шагом...
Новые ответы от MOGZ: Информатика
НиколайСПБ
21.08.2021
A:=2;a:=a^2;b:=-a/2;c:=a+b+1;определить значение переменных после выполнения этих алгоритмов...
алинаарсенова
10.01.2023
Для каких из указанных значений числа X истинно высказывание: НЕ (число 10) ИЛИ НЕ (число чётное) ? 7 8 9 10 11...
Anglichanin228
26.10.2021
Какими обозначениями указывается инверсия? * ^ , x , &, И V, |, ИЛИ, + НЕ, -...
одногоВоло
16.02.2022
В графическом редакторе Paint для того, чтобы закрасить рисунок используя 2 цвета укажи верное соотношение за правильные ответы! Цвет 1 О Цвет фона О Цвет 2 О Основной цвет...
VikaYastremska
08.09.2021
В чем различия чертежа дома и обьёмного дома...
karp22rus2
29.04.2021
Вариант 2 1. Задание Ваня Сидоров, работая над проектом по геометрии, создал следующие файлы: D:\Геометрия\Проект\Графики.bmp D:\Учеба \Работа\Основа.doc D:\Учеба\Работа\Замечания.doc...
526424244241242
09.10.2020
Назовите использование База данных в повседневной жизни....
SERYK11
02.05.2020
Write down the holidays of five people you know Example: My nephew s birthday is on the third of May...
vika2006sa
02.05.2020
Read the sentences. Circle the correct verb: 1) Vets help / are helping sick animals....
Morikachan46
02.05.2020
Complete the sentences using the adjectives from the table Example: In summer, the White Cliffs are full of ... flowers. - In summer, the White Cliffs are full of colourful...
MOGZ ответил
2о вопрос 13) 1.государственный орган отвечающий за распределение финансовых...
Знайти найбільшу висоту трикутника сторони якого дорівнюють 9, 10, 11 см...
Вклассе 20 учеников 18 из них умеют работать на компьютере напишите в виде...
Чи притаманна експансія людині поясніть свою свою думку...
Старый скрипач любил играть у подножия памятника пушкину, что стоит в начале...
Решите 2. даша шла из села к озеру 1,5 ч по одной дороге, а возвратилась...
Найти площадь заштрихованной фигуры...
Сделайте описание данной картинки, не менее 150 слов...
Вящике 8 бесцветных 5 красных 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.