Program prog;
uses crt;
var
a,b,c,s,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s:0:3);
end;
end.
Достаточно задать два вопроса:Какой ты год родилась и месяц?
дано: 5 бит на 1 шарик
найти: кол.шариков
5 бит-это 32 варианта номера(где ед. объема информации бит, там надо подставлять это число в степень двойки, например: 3 бита- 2³=8(кол.вариантов)
5 бит- 2⁵=32 8 бит- 2⁸=256...)
Ответ: 32 шарика.
P-периметр, A-длина одной стороны, B-длина одной из двух других
P=2B+A
B=(P-A)/2
var p,a:real;
begin
read (p,a);
write ((p-a)/2);
end.