Информатика 10 класс. у логические выражения

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

8. дано:

v= 36864 бит/с

1 стр. = 2304 сим* 8 бит = 18 432 бит

4 стр. = 18 432 бит* 4= 73 728 бит = s

t -?

решение.

t= s/v

t= 73728 бит / 36 864 бит/c= 2с.

ответ: 2с.

9. дано:

v=4096 бит/с

t=10 с

n-?

решение.

s=t*v.n=s/16

s=10с*4096 бит/с=40960 бит.

n=40960 бит/ 16=2560 сим.

ответ: 2560 сим.

найдём общее количество пикселей:

450*600=270000

переведём объём в биты:

150кб=1228800б

найдёт сколько бит в одном пикселе:

1228800/270000=4б/пикс

теперь найдём сколько нужно цветов:

2^k=4 значит к=2

ответ: 2 цвета.

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.