Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.
For i in range(100,1000):
i1 = i // 100
i2 = i // 10 % 10
i3 = i % 10
if (i % 11 == 0) and (i1==3 or i2==3 or i3 == 3):
print(i)
Результат:
132
143
231
253
308
319
330
341
352
363
374
385
396
473
539
583
638
693
737
803
836
913
935
Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
Var
a:array[1..100] of Integer;
i,n,x,sum:Integer;
sa:Real;
begin
sum:=0;
for i:=1 to 100 do
a[i]:=0;
ReadLn(n);
for i:=1 to n do
begin
ReadLn(x);
a[i]:=x;
sum:=sum + a[i]
end;
sa:=sum / n;
WriteLn(sa);
end.