Дан массив с элементами 2 5 9 15 0 4. С цикла for и оператора if выведите на экран столбец тех элементов массива которые больше 3 но меньше 10.

var arr:array[1..6] of integer;

    i:integer;

begin

arr[1]:=2; arr[2]:=5; arr[3]:=9; arr[4]:=15; arr[5]:=0; arr[6]:=4;  

for i:=1 to 6 do

  if (arr[i] > 3) and (arr[i] < 10) then  writeln(arr[i]);

readln;

end.

Объяснение:

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.