Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Пусть х - количество страниц в книге, тогда:
х*32*8=256*1024*8
х=(256*1024)/32
х=8192
Тогда вот, все по букве задания
var
s : string;
t : char;
i : integer;
begin
readln (s);
read (t);
i := 1;
while (i <= length (s)) do
begin
if s[i] = t then delete (s, i, 1)
else i := i + 1;
end;
writeln (s);
<span>end.</span>
Это интернет,книга,технологии.
Жизь без интернета - для нас не жизнь. Без него мы чувствуем себя ограниченными от общества. Мы не находим нужный материал.Не можем заказать что то для себя и своей семьи. Вывод: мы можем пользоваться интернетом , но не долгое время!
<span />