Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Mitaren10n3
18.09.2020 22:20 •
Информатика
с домашнем заданием по информатике
👇
Увидеть ответ
Открыть все ответы
Ответ:
Марано
18.09.2020
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219
uses
system;
Var
d1,d2:datetime;
a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.
Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366
4,4
(54 оценок)
Ответ:
привет6365
18.09.2020
1) 64*32/8/1024 = 0,25 кб; 1 / 0,25 = 4 бит пиксель; 2^4 = 16 цветов.
2) 50*80*(ln(16)/ln(2)) = 16000 бит; 16000 / 8 = 2000 байт.
3) 64*64*(ln(256)/ln(2)) = 32768 бит / 8 / 1024 = 4 кбайт минимум.
4) 2048*1536*3 байт пиксель = 9437184 байт / 8 / 1024 = 1152 кбайт.
5) (ln(256)/ln(2)) / (ln(2)/ln(2)) =8 раз меньше стал; (текущий уменьшенный вес файла + 70 байт) * 8 =~ 560 байт если весил 1 байт.
6) (ln(64)/ln(2)) / (ln(8)/ln(2)) = 2 раза.
7) (ln(1024)/ln(2)) / (ln(32)/ln(2)) = 2 раза.
8) 32*64/8 = 256; 512 байт / 256 = 2 бит пикс; 2^2 = 4 цветов.
9) 128*128/8/1024 = 2; 4 кб / 2 = 2 бит пикс; 2^2 = 4 цветов.
10) 1024*768*16 бит пикс = 12582912 бит / 8 / 1024 / 1024 = 1,5 мбайт.
11) 1024*512/8/1024 = 64; 256 кб / 64 = 4 бит пикс; 2^4 = 16 цветов.
12) 32*128*(ln(64)/ln(2)) бит = 24576 бит / 8 / 1024 = 3 кбайта.
13) 2^24 = 16 777 216 цветов; 1240*1024*(ln(16777216)/ln(2)) бит пикс = 30474240 бит / 8 / 1024 = 3720 кбайт для одной страницы требуется.
4,6
(13 оценок)
Это интересно:
О
Образование
06.01.2021
Клюква стоит 250 рублей за кг, а малина 200....
О
Образование
16.03.2023
Решить систему уравнений x2 + y2 + xy = 3...
О
Образование
05.08.2020
Решить систему уравнений x2 + xy +y2 = 13...
О
Образование
06.04.2022
В треугольнике АВС проведена биссектриса АК...
О
Образование
11.03.2020
Водитель ехал с постоянной скоростью из города А в город Б...
О
Образование
27.04.2022
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
Образование
02.06.2023
В треугольнике АВС точка D на стороне АВ...
О
Образование
21.07.2020
Из разных городов, расстояние между которыми 600 км...
О
Образование
29.01.2020
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Хобби-и-рукоделие
21.02.2021
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Информатика
kanzmak
11.12.2020
Втаблице dat хранятся данные о количестве учеников в классах (dat[1] — количество учеников в первом классе, dat[2] — во втором и т. определите, какое число будет...
annaozerkevich
11.12.2020
Сколько бит в сообщении объемом 1/234 мбайт ? по подробнее ,,заранее...
RRuslan619
22.09.2022
Два массива a(14) и b(14). получить третий массив, перемножив элементы первого на элементы второго, взятые в обратном порядке. все массивы вывести на экран. напишите...
АНooop
25.10.2021
Робот находится в 1 из 2 клеток прямоугольника поле 1: 2 перевидите робота в соседнию клетку. напишите алагаритм ....
martynyaka
08.03.2022
Які нові дані можуть бути отримані в результаті опрацювання даних про: зріст учнів класу...
liker27
10.08.2020
Можно ли из прямоугольного металлического листа размером a*b метров вырезать две прямоугольные заготовки размерами c*d и k*p метров. заготовки можно вырезать только...
MrRobot1452390
08.11.2021
Объясните как решать 10 огэ по информатике желательно, чтобы было максимально понятно с: в таблице dat хранятся положительные или отрицательные целые числа. определите,...
GizaHelinc
08.11.2021
8700 в 10 системы счисления в восьмиричную...
Сириc
14.07.2022
Кто придумал абакусный счет,линейку и калькулятор и в каком году все это было создано? ...
aidos2008
09.11.2020
Определите значения переменных x и y после выполнения следующего фрагмента программы? x := 8; y:=2; if x y then begin x := x - y; y:= x; end else begin y := y -...
MOGZ ответил
6. Масова частка Карбону в алкіні становить 90 %.Знайдіть фор-...
Эссе на казахском языке 50-70 слов тема: Менің туған өлкем –Ақтоғай...
15. Сила тяжести равна 50Н. Чему равна масса тела? * 10кг 5кг...
У трикутниках АВС і MNK АВ=MN ВС= NK.Яку рівність треба додати,...
на 21мм растянется пружина если приложить силу 7 Ньютонов. под...
Кто смотрит аниме нарцтт я хочу вас добавить в группу шиноби...
7(1,2-х)+5(х+1,3)-2 можете это СОЧ ...
Выявить и записать прогрессивные черты развития круглых червей....
Напишите мини-сочинение на тему: Чему научила меня сказка Гофмана...
Составь и запиши план к рассказу одинокий медвежонок...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
//Pascal ABC.NET 3.1 сборка 1219
uses
system;
Var
d1,d2:datetime;
a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.
Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366