М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vikhas123
vikhas123
31.01.2020 17:01 •  Информатика

Напишите программу на языке Паскаль, определяющую принадлежность введенного числа сотням.Напишите программу на языке Паскаль, определяющую принадлежность введенного числа сотням.

👇
Ответ:
mia017
mia017
31.01.2020

var x:real;

begin

readln(x);

if (x<1000)and(x>100) then writeln('принадлежит') else writeln('не принадлежит');

end.

4,6(11 оценок)
Открыть все ответы
Ответ:
AlexNickrodef
AlexNickrodef
31.01.2020
1) 640*480*16 = 4 915 200 бит = 614 400 байт = 600 Кбайт - объём кадра

2) 600*24 = 14400 Кбайт/с - битрейт видео

3) 10*40000 = 400 000 бит/с = 50 000 байт/с - битрейт аудио

4) 5*60*((14400*1024)+50000) = 4 438 680 000 байт = 4 233,05 Мбайт

Ответ: 4 233,05 Мбайт
Геннадий создает мультипликационный ролик, где каждый кадр -отдельно отрисованная картинка. Известно, что каждая картинка имеет разрешение :640*480 пикселей и цветовую палитру в 2^ 16=65536 цветов. Каждый пиксель кодируется с помощью минимально возможного и одинакового для всех пикселей количества бит. Картинки записываются одна за другой без разделителей и заголовков файла. Частота смены кадров в конечном ролике - 24 кадра/сек. В качестве звукового сопровождения выбран формат стерео с глубиной кодирования 10 бит и частотой дискретизации 40 кГц . Найдите размер мультфильма в Мбайтах, если известно, что его Длительность 5 минут. В качестве ответа укажите число-минимальное целое количество Мбайт достаточное для хранения такого файла.​
4,7(90 оценок)
Ответ:
irinakol30p00rgy
irinakol30p00rgy
31.01.2020

PROFIT?

 

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.

4,8(86 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ