<span>f:= x*x*x*x; x:=x+0.1; writeln (f,x);
последний варант
</span>
6папок т.к в 1 папке содержится 2-3 бита
var
z,x,y:longint;
begin
write ('X = > ');readln(x);
write ('Y = > ');readln(y);
z:=(sqr(x+1)*(x-1))-(sqr(18*x*y));
writeln ('Z = ',z);
readln;
end.
1, бумажная, компьютерная,
2.Под традиционными будем понимать следующие носители информации:бумага, холст, пластмасса (грампластинка), магнитная лента (аудио и видеокассета), фотографические материалы (фотопленка, фотопластина, фотоотпечаток, микроноситель.
Var a,b:integer;beginreadln(a,b);writeln(a div b);end.