var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
2 бита потому что- 4^5=1024
(всего есть 4 вида букв, каждая из них задаётся 2 битами: 2^2=4
например:
00 - а
01 - б
10 - в
11 - г
В итоге можно задать 1024 слов из пяти двубитных букв
Вообщем поделить на 5