2) writeln (copy(s1,2,6));
3) delete (s,1,5);
1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт
Двойное отрицание же. Просто D.
var answer: real;
x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
answer:=(x+y)/(x+1) - (x*y-12)/(34+x);
writeln(answer);
end.
1.2^2=4
1.4^2=16
2.16-4=12
2.12-4=8
1.8^2=64
Ответ:11221