Выбери верный ответ.

А)Иерархическая БД

Б)Рефлексная БД

В)Отчетная БД

Г)Реляционная БД
..

копируется, редактируется

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.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

64*48*12*8=294,912- обьем в байтах 1 стр