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

Создай подпрограммы для следующих задач. Определи по заданному количеству дней количество месяца и года.​

👇
Открыть все ответы
Ответ:
Kolla77
Kolla77
18.02.2022
1.В кодировке Unicode каждый символ кодируется 2 байтами. На экран влезает 25 • 80 = 2000 символов. Соответственно, объем текста равен 2000 • 2 = 4000 (байт) ≈ 3,9 (Кбайт)
ответ: 4000 байт
2.Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode.
ответ: 16 разрядов)
3.I = 5 Кбайт
K = 4 • 32 • 40
N = ?N = 2i; I = K • i
i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8
N = 28 = 256
ответ: 256 символов в алфавите)
4,8(64 оценок)
Ответ:
taric2004
taric2004
18.02.2022
Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.
4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ