N=1280*960=1228800;
i=24 бита ;
V=n*i=1228800*24=29491200 бит=3686400 байт=3600 Кбайт
1 дюйм = 2,54 см
По вертикали (сторона 38,1 / 2,54 = 15 дюймов) будет 15 * 600 точек, по горизонтали 15 * 1200 точек, всего 15 * 600 * 15 * 1200 = 162 000 000 точек.
На каждую точку отводится 24 бита = 3 байта, информационный объем файла 162 000 000 * 3 байт = 486 000 000 байт = 463,5 Мб
Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
Это такие числа как 1 2 3 5 7 9 11 13 15 17 и тд