Задача элементарная: 40 строк * 70 символов * 8 бит = 22400 бит
Количество страниц : 84000 : 22400 = 3.75 страниц
Ответ: 3 полных страницы и страница, заполненная на 3/4.
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
N=600
N=16*32=512
N=2^i=2^9=512
i=9 бит
I=n*i
I=600*9=5400 бит
Ответ: 5400
вроде так, хотя могла попутать
Var d,time,hours,min:integer;
begin
readln(d);
time:=d*120;
hours:=time div 3600;
min:=time mod 3600 div 60;
writeln('it is ',hours,' hours ',min,' minutes');
end.
В 3 пункте непонятно. "чему равна температура за первую половину сентября?"
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.