1)Т.к. каждый символ может иметь 64 значения, то есть 2^{6} , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 1000. Значит всего нужно 6*1000=6000бит=750байт
2)Один символ (включая пробел) = 1 байт
перевод в байты - 3.5 Кб * 1024 байт = 3584 байт
Количество символов - 3584
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
Y:=sqr((sqrt(sqr(x))+2*b)/(a+sqr(b)+c));
Program z1;
var n,P:integer;
begin
P:=0;
if ((n<30)and(n mod 2=0)) then
P:=n*(n-1);
writeln('P='P);
end.
программу не прогонял,поэтому не уверен.