Нужно описать значения вс слов (Турбо паскаль) Exports-
External-
Far-
File-
For-
Forward-
Function-
Goto-
If-
Implementation-
In-
Index-
Inherited-
Inline-
Interrupt-
Label-

7 200 000 байт

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

Чтобы узнать количество точек в изображении

1) переведём размер в дюймы:

25,4 см = 25,4 / 2,54 = 10 дюймов

20,32 см = 20,32 / 2,54 = 8 дюймов

2) умножим размер на разрешающую сканера:

10 * 8 * 300 * 300 = 7 200 000 точек

K = 7 200 000 точек

i = 8 бит = 1 байт

V = K * i

V = 7 200 000 * 1 = 7 200 000 байт

1)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 repeat

 if i mod 2=0 then S:=S+i;;

 inc(i)

 until i>n;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

 readln;

End.

2)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 while i<=N do

 begin

   if i mod 2=0 then S:=S+i;

   i:=i+1;

 end;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.

3)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 for i:=1 to N do

   if i mod 2=0 then S:=S+i;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.