Дано расстояние в метрах. найти число полных километров в нём.

var a: integer;

begin

writeln('введите кол-во метров: ');

read(a);

writeln('кол-во полных километров: ', a div 1000);

end.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт