<span><span>var q:integer;</span><span> i,j:integer;</span>begin<span> writeln('введите площадь');</span><span> readln(q);</span><span> for i:=1 to q do</span><span> for j:=i to q div i do</span><span> if i*j=q then writeln('длина: ',j:6,' ширина: ',i)</span><span>end<span>.</span></span></span>
100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб
Пойдем вечером в цирк, Вера
Function L(x1,y1,x2,y2:real):real;
begin
L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
var
x1,y1,x2,y2,x3,y3,P:real;
begin
Write('Введите координаты (x,y) вершины A: '); Read(x1,y1);
Write('Введите координаты (x,y) вершины B: '); Read(x2,y2);
Write('Введите координаты (x,y) вершины C: '); Read(x3,y3);
P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L(x3,y3,x1,y1);
Writeln('Периметр треугольника равен ',P:0:2)
end.
<em><u>Тестовое решение:</u></em>
Введите координаты (x,y) вершины A: -5 1.4
Введите координаты (x,y) вершины B: 3 5.5
Введите координаты (x,y) вершины C: 0 -2
Периметр треугольника равен 23.11
A)64 б)2000б=2кб в)х3 думаю что нет....