Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
Полное имя файла состоит из пути к файлу и имени файла.
А путь к файлу состоит из последовательности каталогов, ведущих к файлу и разделенных между собой символом \
Информационный объём сообщения в кодировки ASCII будет равен количеству символов в сообщении умноженом на 8, ответ будет в битах.
I=N*8