Имеется колода из 32 карт . какое кол-во информации получим при вытягивании 1 карты ?

1/ 32   если по теории вероятности то так

// pascalabc.net 3.0, сборка 1066 type   point=record   x,y: double;   end; procedure getpoint(c: char; var m: point); begin   write('введите координаты точки ',c,': ');   read(m.x,m.y) end; function l(a,b: point): double; begin   result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; function s(a,b,c: point): double; var   p,la,lb,lc: double; begin   la: =l(a,b); lb: =l(b,c); lc: =l(c,a);   if (la+lb> lc) and (la+lc> lb) and (lb+lc> la) then begin       p: =0.5*(la+lb+lc);       result: =sqrt(p*(p-la)*(p-lb)*(p-lc))       end   else       result: =0 end; var   a,b,c,d: point;   s1,s2: double; begin   getpoint('a',a);   getpoint('b',b);   getpoint('c',c);   getpoint('d',d);   s1: =s(a,b,c);   if s1=0 then write('по точкам а,в,с нельзя построить треугольник')   else begin       s2: =s(c,d,a);       if s2=0 then write('по точкам c,d,a нельзя построить треугольник')       else writeln('площадь четырехугольника равна ',s1+s2)   end end. тестовое решение: введите координаты точки a: -5 -7 введите координаты точки b: -2 4 введите координаты точки c: 5 9 введите координаты точки d: 9 -3 площадь четырехугольника равна 123

1)

var a: array [1..100] of integer; объявляем массив

i,n: byte; объявляем переменную i и переменную   n   для хранения количества элементов

 

begin

write('введите n = '); readln(n); вводим n

for i: =1 to n do begin от 1 до n   цикл 

write('a[',i,']=');

readln(a[i]); вводим элементы в массив

end;

write('исходный массив:   ');

for i: =1 to n do выводим наш массив полностью

write(a[i],' ');

writeln;

write('результат:   '); выводим результат, в данном случае все элементы стоящие на четных местах

for i: =1 to n do

if i mod 2 =0 then write(a[i],' '); проверка на четность, мод - это оператор деления по остатку, если индекс делится на 2 без остатка, то выводим элемент

end.

 

2)

var a: array [1..100] of integer;

i,n: byte; s: longint; s объявляем для хранения суммы элементов

 

begin

s: =0; обнуляем s

write('введите n = '); readln(n);   тут тоже самое, что и в первой

for i: =1 to n do begin

write('a[',i,']=');

readln(a[i]);

s: =s+a[i]; вот здесь мы складываем каждый элемент массива в переменную s

end;

write('исходный массив:   ');

for i: =1 to n do   вывод массива

write(a[i],' ');

writeln('сумма всех элементов массива = ',s); вывод суммы

end.

 

удачи=)