VAR
x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3; xmax := 2; dx := 0.5; x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
For i=1 to 15
input a
s=s+a
next
? s
I=32*1000 бит/c*15c=480000 бит
I=страницы*48*8бит=480000бит
отсюда страницы= 480000/(48*8)=1250
Итого: 1250 страниц
Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.