Const mx=3;var x4,y4,i:integer;x:Array[1..mx] of integer;y:Array[1..mx] of integer;begin
for i:=1 to 3 do beginwrite('введите x',i,' y',i);Read(x[i],y[i]);
end;x4 := x[3]; y4 := y[1];write('x4 = ',x4,'y4 = ',y4)end.
Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
В основном просто перемножить
Вес файла = вес одного символа * кол-во символов в файле
1 38 * 2 = 76 байт
2 64 * 48 * 4 * 8 = 98304 бита = 12288 байт = 12 кбайт
(кол-во симв) * вес символа
3
k - кол - во символов, тогда
2048 + 8 * k = 16 * k
объем первоначального равен 8k
из уравнения следует что 8k = 2048 бит = 256 байт
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.
3 страницы текста содержат 3937.5 байт информации