С помошью <em>шифрования</em><em> </em><u>можно</u><u> </u><u>огроничить</u><u> </u><u>доступ</u><u> </u><u>постороним</u><u> </u><u>лицам</u><u> </u><u>и</u><u> </u><u>не</u><u> </u><u>кто</u><u> </u><u>не</u><u> </u><u>узнает</u><u> </u><u>содержания</u>
var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);
r:=c/(2*pi);
s:=pi*sqr(r);
writeln('ploshad=',s)
end.
Var a,b,c,n:integer; f:boolean;
begin
readln(a,b,c);
f:=true; n:=0;
while f do
begin
if f and (a>0)
then begin a:=a-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
if f and (c>0)
then begin c:=c-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
end;
writeln(n);
end.
Пример:
3 3 3
7