1.35
2.var y,x:real;
begin
read(x);
if x<=-1 then
y:=-(1/sqr(x))
else if (x>-1) and (x<=-2) then
y:=sqr(x)
else if x>2 then y:=-4;
print (y);
end.
Cхему думаю составишь сам уже
Если нужна скорость передачи то, это 250 кб в секунду
Находишь свой файл на диске и правой кнопкой мыши перетаскиваешь. у тебя вылазит менюшка, в ней выбираешь "создать ярлык"
Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
1) б)монитор
2) 10бит, 2байта, 20 байтов, 1010байтов, 1 Кбайт
3) 1,5*1024*1024*8=12582912/128000=98,4 сек