Вводятся три цифры. требуется составить из них наибольшее возможное четное число. знаю, что легкая, но

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var l: =readseqinteger('введите через пробел три цифры',3).tolist;   if l.all(x-> x=0) then writeln('хотя бы одна цифра должна отличаться от нуля')   else       if l.all(x-> x.isodd) then writeln('хотя бы одна цифра должна быть четной')       else begin           var d3: =l.where(x-> x.iseven).min;           l.removeat(l.findindex(x-> x=d3));           var s: =l.orderby(x-> x);           writeln(s.last,s.first,d3)           end end. примеры: введите через пробел три цифры 2 0 5 520 введите через пробел три цифры 0 5 0 500 введите через пробел три цифры 3 9 5 хотя бы одна цифра должна быть четной

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.