Program vozrast;
var n: integer;
begin
writeln ('Введите возраст');
readln (n);
if (n=1) or (n mod 10 = 1) then writeln ('Мне ',n,' год')
else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ',n,' года')
else writeln ('Мне ',n, ' лет');
end.
505кб=4040000бит
900кб=7200000бит
если не ошибаюсь так
удачи :)
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a[1:]; a.Println;
end.
<u>Пример</u>
n= 13
33 43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
<u>Замечание:</u> использован динамический массив, так что он просто станет на один элемент короче.
1. Вопрос.
79 = 1001111
444 = 110111100
2. Вопрос.
101000 = 40
10101011 = 171
3. Вопрос.
3 приложение превышает объем 15 мб
0.5 гб переведем в мегабайты 0.5*1024=512 мб
Ответ: Нет.
4. 545,6Кб=545,6*1024=558694.4Байт;
0,756Гб=0,756*1024=774.144мб, 774,144*1024= 792723.456Кбайт;
456789Б=456789/1024=446.08КБайт, 446.08/1024= 0.43Мб)
5. Музыкальныйклип = 15 символов
принято считать 1 символ 1 байт
1*15= 15 байт фраза занимает.
15*8= 120 бит
Ответ: 15 Байт, 120 бит