Вкоробке 30 одинаковых юбилейных монет. известно, что 5 из них имеют нестандартный процент содержания золота. случайным образом выбирают три монеты. вычислите вероятность того, что: а) все монеты имеют нестандартный процент содержания золота; б) только одна монета имеет нестандартный процент содержания золота. в) хотя бы одна монета имеет нестандартный процент содержания золота

Ответ здесь в) и больше нечего

//////////////////////////forvar   a, i, n, sum: integer;   degin       readln(a, n);       sum : = 1;       for i : = 1 to n do sum : = sum * a;       writeln(sum); end.//////////////////////////while var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       while i < > n do       begin           sum : = sum * a;         inc(i);       end;     writeln(sum); end.//////////////////////////repeat var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       if n < > 0 then         repeat             begin                 sum : = sum * a;                 inc(i);             end;         until i = n;       writeln(sum); end.

По выполняемым функциям и возможности применения  информационные технологии делят на используемые: 1) в автономных компьютерах (пэвм) и в локальных рабочих станциях (арм) в составе сетевых автоматизированных информационных систем (аис) реального времени; 2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах; 3) в системах с искусственным интеллектом; 4) в интегрированных аис; 5) в геоинформационных, и других системах.