program abc2;
var x,y:real;
begin
x:=0.1;
repeat
if (sqr(x)-1.8*x+1.2)=0 then
writeln('x=',x,'нельзя вычислить функцию')
else
y:=(364*sqr(x)*exp(-7.5*x))/(sqr(x)-1.8*x+1.2);
if y>1 then
writeln('y=',y:8:3);
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.
<u>Пример</u>
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
Var
i, n, s, x: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
readln(x);
if (x mod 10 = 8) and (x mod 6 = 0) then
s := s + x;
end;
writeln('S = ', s);
end.
Всего символов в книге - 40 * 80 * 100 = 320 000;
1 символ – это 1 байт, в книге содержится 320 000 байт информации
Переведем в Мб, 320 000 байт / 1024 / 1024 = ~ 0,3 Мб.
Давно!
64 символа в алфавите => 6 бит на символ, т.к. 2^6 = 64
6*100 = 600 бит