Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
НаташаБатракова
24.03.2022 09:49 •
Информатика
Информатика 7 класс 1 легкая задача
👇
Увидеть ответ
Открыть все ответы
Ответ:
lllgglll
24.03.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
24.03.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 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
18.06.2020
Замена бальзамическому уксусу - натуральные вкусовые альтернативы...
К
Компьютеры-и-электроника
07.10.2020
Как переустановить Google Chrome: простой шаг за шагом гайд...
Ф
Финансы-и-бизнес
25.01.2020
Как открыть счет в швейцарском банке: необходимые шаги и требования...
К
Компьютеры-и-электроника
19.04.2023
Как прекратить получение сообщений на Facebook...
С
Стиль-и-уход-за-собой
22.08.2021
Как эффективно удалить губную помаду?...
И
Искусство-и-развлечения
24.04.2022
Как танцевать под хаус-музыку: узнайте простые шаги и техники...
С
Стиль-и-уход-за-собой
08.03.2023
Как правильно подобрать галстук?...
И
Искусство-и-развлечения
08.01.2020
10 советов по тому, как стать хорошим хип-хоп танцором...
02.05.2023
Как избавиться от безответной любви...
В
Взаимоотношения
15.07.2022
Как отстаивать свои права в отношениях: 10 советов...
Новые ответы от MOGZ: Информатика
Евгения65545
20.01.2020
В чем преимущества и недостатки пользовательского интерфейса программы?...
RitaAvakyan1
29.03.2023
Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0) Запусти программу и введи значение x=19....
EsMiLe1999
17.05.2020
ЕХСЕЛ ДЕРЕКТЕРДІ СҰРЫПТАУ ЖƏНЕ ІРІКТЕУ КОМАНДАСЫ МЕНЮІ ҚАЙ БӨЛІМІНДЕ ОРНАЛАСҚАН? Сұрыптау мен Сүзгілеудің айырмашылығы неде?...
Zlowmak
03.02.2021
Задать массив размерностью 15, заполнить массив случайными числами в интервале [-10,10] и вывести элементы на экран: определить три позиции для вывода каждого элемента,...
Lisakwon
29.09.2022
Выбери источники информации: Учитель в начале урока знакомит учеников с темой и целями урока. Затем ученики в командах проводят исследование и готовят презентацию....
ketti336
20.07.2021
Оцените (в битах) количество информации, записанной в двоичном коде: 0110001101...
margaritakulak
15.01.2023
Напечатать все четырехзначные натуральные числа, в десятичной записи которых есть три цифры 5....
SonicAndDash
20.10.2020
На что расходуется энергия при плавлении кристаллического тела, нагретого до температуры плавления?...
очентупой
20.10.2020
2. Внимательно рассмотри предметы на рисунках. Определи, какие виды информации ты можешь получить. Поставь знак (+) в соответствующие столбцы таблицы (выполняется...
dvs2504
13.09.2020
Кадр передает слово привет закодированное 6 байтами какой размер полезных данных понесет кадр...
MOGZ ответил
Визначте основні етапи діяльності Данила Галицького і дайте їм...
Проведите обсуждение во благодаря чему римлянам удалось победить...
зв язок речення :засіб призначався для очищення шпалер від пилу...
Разложите на множители а) 16а^2 - 9 б) 3x^3 – 75х в) 2x^2+ 4xy...
Ж) — 100 : 5; 3) -850 : (-85); и) 360 :(-12); к) -1: (-1); л)...
Навіщо біологи класифікують різні організми...
Информация о известном лыжнике Коми...
Сочинение доказать что слово Ночь это существительное...
Во Укажите предложение, в котором нужно поставить ОДНУ запятую:...
В чём состоялись особенности развития русских княжеств...
Полный доступ к 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.