ответы можно в вк ‍♀️‍♀️‍♀️rumyaanka

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.

var

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

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

ответ: 0,0261 килобайта

1байт=8бит, 1кб=1024байт

214/8=26.75

26.75/1024=0.0261

1кбайт=1 тысяча байтов.значит 214бит надо превратить в байты - 1байт это 8бит; 214: 8=26,75.

26,75 x 1000=26750

вообще-то, кб> байт и надо делить, а не умножать.