Скласти програму! Зобразити 15 різнокольорових точок у верхній половині екрана.

1 символ = 1 байт

70*50=3500 байт

3500*8=28000 бит(вес одной страницы)

1 мегабит = 1048576 бит

1048576*100=104857600 бит

104857600/28000=3744 страниц

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.

клавиши переключения регистров caps lock, shift, ctrl, alt.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.