777SwimmeR777
25.06.2020 20:04

При выполнении контрольной работы ученик вычислил информационный обьем графического обьэкта который оказался равен 293 кбайт. При создании графического обьекта использовалась цветовая палитра 8 цветов и разрешение монитора 1000x Определите разрешение монитора который был потерян учеником

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
0070070070007
29.04.2020 15:02

2) При выделения объекта и нажатия по нему правой кнопки мыши появляется меню, где мы выбираем Свойство (это позволит узнать свойства объекта).

3)Откройте свойства папки.Перейдите во вкладку «Настройка» и щелкните кнопку «Сменить значок».Укажите место поиска иконки. По умолчанию это системная библиотека Shell32.dll, но вы можете выбрать и другой источник. Кликните подходящее изображение и нажмите ОК.

Объект - это общее название любой окружающей действительности. Чаще всего объект характеризуется наличием структуры, свойств, состояния, методов. Свойства характеризуются его параметрами, на языках объектно-ориентированного подхода операции называют методами.  это 1

0,0(0 оценок)
Ответ:
HerobrineLifeYT
27.12.2020 04:13

Из сложностей может возникнуть только генерация случайного значения. Функция random(x) возвращает случайное число от 0 до x-1. Когда функция возвращает 0 (минимальное значение), нам нужно, чтобы оно превратилось в 20. Будем отнимать 20 от значения функции random(x):

a[i] := random(x) - 20;

Самое большое число, которое мы хотим получить - 60. Так как мы отнимаем 20, самое большое число, которое должна вернуть функция random(x) равно 80. Значит, x равен 81:

a[i] := random(81) - 20;


Кстати, произведение может получаться слишком большим, а тип данных integer может хранить числа не больше 32767. Поэтому мы должны хранить произведение как longint. Оно позволяет хранить числа до 2^{31}-1


Код

var

 a: array[1..1000] of integer;

 i, n: integer;

 ans: longint;


begin

 read(n);

 ans:=1;

 for i:=1 to n do

 begin

   a[i]:=random(81)-20;

   if a[i] > 20 then ans:=ans*a[i];

 end;

 writeln(ans);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота