Uses crt;var a:integer; S,R,r2,P:real;begin write ('Введите сторону a: '); readln (a); S:=((a*a)*sqrt(3))/4; R:=(a*sqrt(3))/3; P:=3*a; r2:=(a*sqrt(3)/6); writeln ('Площадь равностороннего треугольника: ',S:1:2); writeln ('Радиус описанной вокруг равностороннего треугольника окружности ',R:1:2); writeln ('<span>Радиус вписанной в равносторонний треугольник окружности</span>: ',r2:1:2); writeln ('Периметр равностороннего треугольника: ',p:1:2);end.
При заданной мощности достаточно 1 байта на символ, чтобы закодировать алфавит.
Итого получается:
1*320*384/ 1024 = ? кБайт.
Program dfg;
var
i,b,a:integer;
begin
randomize;
b:=1;
for i:=1 to 10 do
begin
a:=random(10);
writeln('а = ',a);
end;
<span>end.</span>
Кожа-горячо(холодно), язык сладко(горько),нос-ароматный
<span>{$R+,S+,Q+}</span> uses SysUtils; <span>const R=1000;</span><span>type Mas= array [0..R] of integer;</span>var a: Mas; en,n: integer; x,y,z,q,w: char;<span>function push(n: integer): string;</span>begin<span> a[en]:=n;</span><span> en:=en+1;</span> push:='ok';end;<span>function pop(): integer;</span>begin<span> en:=en-1;</span><span> pop:=a[en];</span><span> a[en]:=0;</span>end;<span>function back(): integer;</span>begin<span> back:=a[en-1];</span>end;<span>function size(): integer;</span>begin size:=en;end;<span>function clear(): string;</span>begin<span> en:=0;</span> clear:='ok';end;<span>function exit(): string;</span>begin exit:='bye';end;begin<span> en:=0;</span> repeat<span> read(x);</span> if x='p' then begin<span> read(y);</span> if y='u' then begin<span> read(z,q,w);</span><span> readln(n);</span><span> writeln(push(n))</span> end else begin<span> readln(z);</span><span> writeln(pop());</span> end; end; if x='b' then begin<span> readln(y,z,q);</span><span> writeln(back());</span> end; if x='s' then begin<span> readln(y,z,q);</span><span> writeln(size());</span> end; if x='c' then begin<span> readln(y,z,q,w);</span><span> writeln(clear());</span> end; if x='e' then begin<span> readln(y,z,q);</span><span> writeln(exit());</span> end; until x='e';<span>end.</span>
