Соотнесите функцию с её значением Целая
часть а
Модуль Квадрат Корень Псевдослучайное Дробная Псевдослучайное Экспонента
аргумента а
Квадратный число в
часть а число в
Из а
интервале [0, a)
интервале (0, 1)
sqrt (а)
exp (a)
abs (a)
frac (a)
sqr (a)
random
(а)
random
int (a)​

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

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.

10000 байт = 10000 : 2^10 кб = 9,8 кб

10000 байт = 10000 : 2^20 мб = 0, 009 мб

600000 байт = 600000 : 2^10 = 586 кб