СПОЧНО!! Напишіть задачу/програму ʼдля обчислення парного і непарного числа
Питає - введіть ЧИСЛО,
щось обчислюе...
виводить: "число парне" або "число непарне"​

var

x: real;

begin

readln(x);

writeln(round(x));

end.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

из-за того, что там не было древесины, люди писали на глинянных тощечках. они колышками выдавливали символы.