Var
a,b,c,p,s:real;
begin
Write('Введите стороны треугольника: ');
Read(a,b,c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('p=',2*p:0:2,', s=',s:0:4)
end
else Writeln('0')
end.
Программисты которые создают вирусы более мотивированы чем те,которые создают антивирусы
Каждый символ это один байт или 8 бит.
вся книга займет 150*40*60=360000 байт или
360000*8=2880000 бит
это 2812.5 кбит или 2.74 мбит
а в байтах это 360000/1024=351,25 кбайт или 0,34 мбайт
Var i:integer;
begin
for i:=0 to 20 div 3 do write(3*i+1,' ');
writeln;
end.