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

  чашку разбил серёжа. коля – правдивый, серёжа – хитрец, вася – шутник

Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do     begin     counter : = counter +1;       if (a div counter) < 0 then transfer       else countertwo : = countertwo + 1;     else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.

Дано: k(окуней)=12500;           k(пескарей)=25000;           k(карасей)=к(щук)=6250 найти: lo,lп,lк,lщ, решение: 1 надо найти общее кол-во рыбы : n=ko+kп+kк+kщ 2 найти вероятность ловли каждого вида рыбы:   pо = ко/n ;   pп = кп/n ;   pк=pщ = кк/n.найдем количество информации о ловле рыбы каждого вида:   iо =  log2( 1/pо );   iп=log2   (1/pп   );   iк =  iщ =  log2   (1/pк   )найдем количество информации о ловле рыбы любого вида:   i=pо∙log2pо +  pп∙log2pп   +pк∙log2pк   +pщ∙log2p щ