<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
<u>Примеры</u>
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]
Function avg( i,j,k,m: float ): float;
begin
result := (i+j+k+m) / 4.0;
end;
Пароль формируется из 6 символов,
каждый символ кодируется i - битами.
2^i =6; ---> 2^2< 6 < 2^3 ---> 3 бита для кодировки одного символа.
В одном пароле 11 символов, длина пароля =3*11=33 бита.
Каждый пароль - целое количество байтов :
33 бита =33:8 байтов =5 байтов
Для 20-ти паролей: 5*20=100 байтов.
Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
Var
i,n:integer;
s,p:real;
begin
s:=0; p:=1; n:=3;
for i:=1 to 11 do
begin
s:=s+1/n;
p:=p*1/n;
n:=n+2;
end;
writeln('summa: ',s);
writeln('proizvedenie: ',p);
end.