Светлана николаевна работает в цветочном магазине. в этом магазине цветы всего 3 видов: розы, лилии и ирисы. в магазин часто приходят клиенты и просят составить для них букет. светлана николаевна всегда записывает - какие цветы она использует в проданных букетах. по её данным, за последний месяц, букетов, состоящих только из роз и ирисов, было продано 120, букетов из роз и лилий – 57, а букетов, в состав которых входили розы, лилии и ирисы – 28. сколько всего в этом месяце было продано букетов, в которые входили розы, а вместе с ними или лилии, или ирисы (букеты из всех трех цветов тоже считаются)?

информационный вес символа,при алфавитном подходе считается,что каждый символ текста имеет определенный информационный вес. информа­ционный вес символа зависит от мощности алфавита.а ка­ким может быть наименьшее число символов в алфавите? оно равно двум. скоро вы узнаете, что такой алфавит ис­пользуется в компьютере.он содержит всего 2 символа, ко­торые обозначаются цифрами «0» и «1».его называют дво­ичным алфавитом. изучая устройство и работу компьютера,узнаете,как с всего двух символов можно пред­ставить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется он 1

program aaa;

const n=50;

var w, c, x, d10, d4, d1: integer;  

begin 

  writeln ('введите вес бандероли');

  readln (w);

  if w < = n

    then c: =10

    else  

        if w mod n = 0

          then c: =10+((w div n)-1)*5

          else c: =10+5+((w div n)-1)*5;

  d10: = c div 10;

  d4: = (c-10*d10) div 4;

  d1: = (c-d10*10-d4*4);

  writeln ('стоимость бандероли: ',c,' драхм');

  writeln;

  writeln ('для оплаты нужно не менее');

  writeln (d10: 10,' монет по 10 драхм');

  writeln (d4: 10,' монет по 4 драхмы');

  writeln (d1: 10,' монет по 1 драхме');

end.

результат работы программы:

введите вес бандероли       100

стоимость бандероли: 15 драхм

для оплаты нужно не менее

          1 монет по 10 драхм

          1 монет по 4 драхмы

          1 монет по 1 драхме