В теории вероятностей шансы того, что случайное событие произойдёт, выражают числом. Это число называют вероятностью случайного события. Если событие никогда не наступает (его шансы равны 0), то вероятность этого события полагают равной 0. Такое событие называют невозможным. Если же событие наступает всегда, его вероятность полагают равной 1. Такое событие называют достоверным. Вероятность остальных событий – это числа между 0 и 1.
Бесконечность – не предел! Этот девиз из известного высказывания Стива Джобса как нельзя лучше отражает происходящее в настоящее время проникновение прогрессивных технологий в жизнь человека. Современная физика предполагает, что в основе окружающей человека реальности лежит бесконечность. Перед бесконечностью все равны и кибернетический суперинтеллект будущего и человек с его недостатками, всем есть экологическая ниша для жизни. Будущее принадлежит не человеку и не роботу, а своеобразному кентавру – человеко-машинному комплексу. Из выше сказанного тривиально следует команду назвать: Кентавры.
Вот program qq; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer; begin cls; writeln ('Введите 10 пар чисел'); read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t); //Первая пара if a > b then writeln ('Первая пара больше число ' ,a) else writeln ('Первая пара больше число ' ,b); //Вторая пара if c > d then writeln ('Вторая пара больше число ', c) else writeln ('Вторая пара больше число ', d); //Третья пара if e > f then writeln ('Третья пара больше число ', e) else writeln ('Третья пара больше число ', f); //Четвертая пара if g > h then writeln ('Четвертая пара больше число ' , g) else writeln ('Четвертая пара больше число ' , h); //Пятая пара if i > j then writeln ('Пятая пара больше число ' , i) else writeln ('Пятая пара больше число ' ,g); //Шестая пара if k > l then writeln ('Шестая пара больше число ' ,k) else writeln ('Шестая пара больше число ' ,l); //Седьмая пара if m > n then writeln ('Седьмая пара больше число ' , m) else writeln ('Седьмая пара больше число ' ,n); //Восьмая пара if o > p then writeln ('Восьмая пара больше число ' ,o) else writeln ('Восьмая пара больше число ' ,p); //Девятая пара if q > r then writeln ('Девятая пара больше число ' ,q) else writeln ('Девятая пара больше число ' ,r); //десятая пара if s > t then writeln ('Десятая пара больше число ' ,s) else writeln ('Десятая пара больше число ' ,t); end.
