1)(48 *1024 *8) : (64*64*8) = 393216 : 32768 = 12 стр
48 Кбайт = 48*1024*8 = 393 216 бит
64 стр * 64 симв = 4096 симв на 1 стр
2) Емеля? :) Вторая буква - согл, последняя - гласная
program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>
Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
13 символів, так як один символ=1 біт
Скорее всего когда гладит кошку и смотрит телевизор