Кукла - кулак
марка - рамка, карма
каприз - приказ
соринка - росинка
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
Дано:
Символов - 512
Мощность алфавита - 16
Формулы:
<span>2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ).
</span>Вычисление объёма для всего текста:
Объём, приходящийся на 1 символ*количество символов=общий объём
Решение:
2^b>=16
b=4 бит
4(бит)*512(символ)=2048 бит=256 байт=0,25 кб
Ответ: <span>0,25 кб</span>
Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.