var b,p,s,x,a:real;
begin
read(b);
x:=sqrt(sqr(b)/2);
a:=x*2;
writeln('P= ',(b+b+a):2:2);
writeln('S= ', a*x*0.5);
end.
после (b+b+a):2:2 означает округление до 2 знаков после запятой
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
Если мы пронумеруем все числа, то на первом шагу останутся все числа с номерами 2к (к начинается с единицы), на втором 4к и т д. Значит, нам просто нужно узнать количество таких шагов. Всего чисел м-н. каждый раз мы удаляем половину. Значит, нужно посчитать логарифм от (м-н) по основанию 2. А ответом будет этот логарифм, округленный в меньшую строну (ну или в большую, там смотреть надо)
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
Draw animal in AGLO give 90 point
