Статья набранная на компьютере содержит 4 страницы на каждой странице 60 строк в каждой строке 70 символов определите информационный объём статьи если каждый символ кодируется 16 битами​

информационный объем равен произведению числа страниц, числа строк, числа символов и количества бит, приходящееся на 1 символ.

i - 4 * 60 * 70 * 16 = 268800 бит

268800 / 8 = 33600 байт

33600 / 1024 = 32.8 кбайт

Паскаль авс . используется оператор case: program njk; vara: integer; beginwriteln('    данная программа определяет время года и сам месяц по его номеру'); writeln('    в году 12 месяцев! '); writeln('  введите № месяца'); readln(a); case a of1: writeln(' январь- зима'); 2: writeln(' февраль-зима'); 3: writeln(' март-весна'); 4: writeln(' апрель-весна'); 5: writeln(' май-весна'); 6: writeln(' июнь-лето'); 7: writeln(' июль-лето'); 8: writeln(' август-лето'); 9: writeln(' сентябрь-осень'); 10: writeln(' октябрь- осень'); 11: writeln(' ноябрь-осень'); 12: writeln(' декабрь-зима'); end; end.

Program digfact; var x: integer; function factorial(x: integer): integer; var i: integer; y: integer; begin y: =x; for i: =1 to x-1 do begin dec(y); x: =x*y; end; factorial: =x; end; function factorialsum(x: integer): integer; var y: integer; begin factorialsum: =0; repeat y: =x mod 10; x: =x div 10; factorialsum: =factorialsum+factorial(y); until x = 0; end; begin write('x = '); readln(x); if factorialsum(x) = x then writeln('true') else writeln('false'); readln(); end.интересное , поломал голову немного.