1,3 Мбайт = 1,3*1024 Кбайт = 1,3*1024*1024 байт = 1,3*1024*1024*8 бит
1 мин = 60 сек
частота дискретизации = (1,3*1024*1024*8)/(60*16) ≈ 11360 Гц
60*40=2400 байт
место выделяется кластерами, для 1.2 дискеты 512 байт
кластеров для полезной информации на 1,2 дискете (это ещё 5" древность)
2*80*15 - 2*2 -14 =2382
2382*512=1219584
1219584/2400=508,16
получается 508 страниц
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.