Ответ:
не хорошо видно выложи опять только нормальную. правда только не обежсйся
АБЕЖДГВ
сначала протокол, потом ://, потом сервер, потом /, потом имя файла)
X - количество вагонов, тогда вероятность того, что выбора купейного вагона p = x/28
I = log(2){1/(x/28)} =2
28/x =4
x =7
Ответ: 7 купейных вагонов
1)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0)then
a[i] := a[i]*2
else
a[i] := a[i] - 1;
for i := 1 to n do
wirte(a[i]);