Program Trapecia;
Var h, a, b, c: real;
begin
writeln('Введите значение высоты');
readln(h);
writeln('Введите значение основания трапеции 1');
readln(a);
writeln('Введите значение основания трапеции 2');
readln(b);
if a>b then
c:=sqrt(sqr((a-b)/2)+sqr(h))
else
c:=sqrt(sqr((b-a)/2)+sqr(h));
writeln('Периметр трапеции равен ',a+b+2*c);
<span>end.</span>
1) 1 байт- 8 битов
2) 213 бит - 0,0266 кбайт
3) 1 мбайт - 1 х 10 < -2, 0,001 байт, 0,08 бита.
4) 1,536 кбайт, 1536 байт = 12.288 бит.
Информационные ресурсы — это идеи человечества и указания по их реализации, накопленные в форме, позволяющей их воспроизводство.Это книги, статьи, патенты, диссертации, научно-исследовательская и опытно-конструкторская документация, технические переводы, данные о передовом производственном опыте и др.Информационные ресурсы (в отличие от всех других видов ресурсов — трудовых, энергетических, минеральных и т.д.) тем быстрее растут, чем больше их расходуют.
Все real, кроме Е. Е - integer.
Хотя в некоторых паскалях Sqr/Sqrt имеют перегрузки, поэтому там могут быть integer.