В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

1. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше? 2. Дан текст. Определить, сколько в нем предложений
3. Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, ..., 10 фунтов (1 фунт = 453 г)
4.Дано число n. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n.
5. Даны три натуральных числа. Выяснить, в каком из них сумма цифр больше. (Определить функцию для расчета суммы цифр натурального числа
, на С++

Показать ответ
Ответ:
moon455808
moon455808
28.07.2021 03:03
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 10;

var
  a: array[1..n] of integer;
  i, j, c, nc, max, imax: integer;
  p:BigInteger;

begin
  // Заполним массив сл. числами
  max := -MaxInt;
  for i := 1 to n do
  begin
    a[i] := random(-100, 100);write(a[i]:4);
    if abs(a[i]) > max then begin
      max := a[i];imax := i;
    end;
  end;
  writeln;
  //1. Количество элементов массива, больших С.
  writeln('Введите число "с"');readln(c);
  for i := 1 to n do if a[i] > c then nc := nc + 1;
  writeln('Элементов больше чем ', c, ' : ', nc);
 
  //2. произведение элементов массива,
  //расположенных после мак симального
  //по модулю элемента 
  p := 1;
  for i := imax + 1 to n do p := p * a[i];
  writeln('Максимальный по модулю элемент находится на ', imax, ' месте');
  writeln('Произведение элементов массива,расположенных после максимального по модулю элемента ', p);
 
  //3. Преобразовать массив таким образом, чтобы сначала размещались все
  //отрицательные элементы, а потом все положительные
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] > a[j + 1] then begin
        swap(a[j], a[j + 1]);  
      end;
  writeln('Преобразованный массив :');
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
  -6  91  52  62 -28 -64  86  86 -91 -61
Введите число "с"
15
Элементов больше чем 15 : 5
Максимальный по модулю элемент находится на 2 месте
Произведение элементов массива,расположенных после максимального по модулю элемента -1246076928
Преобразованный массив :
 -91 -64 -61 -28  -6  52  62  86  86  91
0,0(0 оценок)
Ответ:
bahriddinJoN2085
bahriddinJoN2085
22.06.2020 17:41
Цены взяты с сайта h t t р : / /w w w .сitilink. r u /
1) Всего 7720.00 руб.
1. Процессор 32- или 64-разрядный процессор с тактовой частотой 1 ГГц или выше с набором инструкций SSE2 Процессор AMD Athlon II X2 220 1600 руб.2. Оперативная память 1 ГБ (для 32-разрядных систем); 2 ГБ (для 64-разрядных систем)    Модуль памяти AMD R532G1601S1S-UO DDR3 — 2Гб      730 руб.3. Свободное место на жестком диске 3 ГБ свободного места на диске Жесткий диск SEAGATE Samsung Momentus ST320LM001 
2740 руб.4. Для использования аппаратного ускорения требуется видеоадаптер, поддерживающий DirectX 10 Разрешение 1280 x 800
Видеокарта MSI GeForce 210   1940 руб.
5. Блок питания Блок питания ACCORD ACC-P300W 710 руб.
2)
Процессор Intel® Core 2 или AMD Athlon® 64; 2 ГГц или более быстрыйMicrosoft Windows 7 с пакетом обновления 1, Windows 8.1 или Windows 10
2 ГБ ОЗУ (рекомендуется 8 ГБ)2 ГБ свободного пространства на жестком диске для установки 32-разрядной версии; 2,1 ГБ свободного пространства на жестком диске для установки 64-разрядной версии; во время установки требуется дополнительное свободное пространство (не устанавливается на съемные устройства флэш-памяти)Монитор с разрешением 1024x768 (рекомендуется 1280x800), поддержкой 16-битного цвета, а также 512 МБ видеопамяти (рекомендуется 1 ГБ)*Система с поддержкой OpenGL 2.0Для обязательной активации программного обеспечения, подтверждения подписки и доступа к онлайн-услугам требуется подключение к Интернету и регистрация**
3)
Процессор Intel® Pentium® 4 с тактовой частотой 1,4 ГГц или аналогичный процессор AMD® с поддержкой SSE2* 32 ГБ оперативной памяти (рекомендуется 4 ГБ)2 ГБ в файле подкачки (рекомендуется 4 ГБ**) 43 ГБ свободного места на жестком дискеГрафический адаптер, поддерживающий Direct3D® 10, Direct3D 9 или OpenGL5Не менее 512 MБ памяти на видеокарте (рекомендуется 1 ГБ и выше)Трехкнопочная мышь с установленным драйверомПривод DVD-ROM6Подключение к Интернету для загрузки файлов и доступа к Autodesk® Subscription Aw
4)
intel Core i3-550, AMD Phenom II X4 955 или аналоги;
4 ГБ ОЗУ;
NVIDIA GeForce GTX 460 (1 ГБ VRAM), AMD Radeon HD 5770 (1 ГБ VRAM) или аналоги;
20 ГБ места на жестком диске.
Цены найдешь на сайте
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота