logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
SANMAN26
SANMAN26
04.08.2022 20:52 •  Информатика

До ть будь ласка самий відмінний проект знайдіть​


До ть будь ласка самий відмінний проект знайдіть​

👇
Увидеть ответ
Открыть все ответы
Ответ:
lllgglll
lllgglll
04.08.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
Vladisimus
04.08.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 оценок)
Это интересно:
Ф
Как вычислить период оборота запасов: практическое руководство...
Х
Угловые закладки своими руками: простой и креативный способ сохранить страницу...
З
Здоровье
17.12.2021
Как получить больше витамина А?...
К
Как приготовить шоколадный торт в скороварке - быстро и вкусно...
Т
Транспорт
07.05.2022
Как управлять автомобилем в зимнюю погоду: советы и рекомендации...
З
Здоровье
27.10.2022
Конъюктивит: быстрый и эффективный способ избавиться от болезни...
К
Как сохранить форматирование документа при его копировании и вставке...
В
Как правильно вести себя, когда ваш парень целует вас в присутствии друзей...
К
Как приготовить сливочную яичницу болтунью...
С
Как наносить тональную крем-пудру: лучшие способы...
Новые ответы от MOGZ: Информатика
adelina05082006
adelina05082006
30.09.2021
написать по информатике основные правила записи основных операторов...
PomogiSPb
PomogiSPb
07.06.2022
Напишите, , программы (паскаль). 1. ввести два целых числа, если первое число больше второго, то посчитать сумму этих чисел, иначе прибавить ко второму числу 10. 2. напишите программу,...
anjela2288
anjela2288
30.12.2021
Что делать с этим чёрным экраном при входе в ПК?...
KriRo77
KriRo77
05.04.2021
Основным объектом для хранения информации в реляционных базах данных является...
муліка22
муліка22
22.03.2020
Що належить до графічних і не графічних операційних систем​...
QQQZZZQQQ
QQQZZZQQQ
17.04.2022
Выберите лишний объект 1)флеш-память 2)сканер 3)жёсткий диск 4)оперативная память​...
nikita112289
nikita112289
16.04.2022
1.Переведите числа из десятичной системы счисления в другую. а) 24510→А2 б) 198710→А2 в) 16110→А3 г) 33310→А5 2.Перевести из десятичной системы счисления следующие числа: а) 173,562510→А2...
zheniskanovaa
zheniskanovaa
12.03.2021
Для составления цепочек используются бусины, помеченные буквами А, В, С, D, Е. На первом месте в цепочке стоит одна из бусин А, С, Е. На втором — любая гласная, если первая буква...
kirill51hramov
kirill51hramov
09.04.2022
Должно присутствовать Дано, найти, решение. В решении должны использоваться степени двойки! 1) Скорость передачи данных через ADSL соединение равна 128000 бит/c. Через данное...
vlada041104
vlada041104
16.09.2020
В массиве хранятся сведения о количестве осадков, выпавших за каждый день февраля. Определить количество дней, когда осадков не было.​...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ