Если брать по 1 байту на символ, то строка будет занимать 32 байта, а страница 32^6=4,096 байт. 640/8=80 страниц
2) 11 байт
var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
var x,z:real;
begin
writeln('Вычислить значение выражения по формуле y= (1+sin(SQRT(x+1)))/(cos(12*z-4))');
write('Введите число X: '); readln(x);
write('Введите число Z: '); readln(z);
writeln('y= ',(1+sin(sqrt(x+1)))/(cos(12*z-4)):0:2);
end.
Ответом будет пункт 4)<span>C:\Работа1</span>
Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.