9611946-если с пробелами
10485760-если без пробелов
2мин=120с, чтобы узнать скорость - надо кол-во символов поделить на время, получается 360/120=2бит/с
Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.
Не (А + В) = (не А) & (не В)
не А + (не А) & (не В) = не А
не (А & B) = не А + не В
B & (не А + не В) = (не А) & B
не ( (не А) & B ) = А + не B
F = не А + А + не В = 1 + не В = 1