Фермерське господарство має можливість придбати не більш ніж 19 тритонних вантажівок і не більш ніж 17 п'ятитонних. Відпускна ціна тритонної вантажівки- 4000 грн, п'ятитонної-5000грн. Господарство може виділити для придбання вантажівок 141 тис. грн. Скільки потрібно придбати автомашин, щоб іх загальна вантажопідйомність була максимальною? [Фермерское хозяйство имеет возможность приобрести не более 19 трехтонный грузовиков и не более 17 пятитонных. Отпускная цена трехтонного грузовика 4000 грн, пятитонной-5000грн. Хозяйство может выделить для приобретения грузовиков 141 тыс. Грн. Сколько нужно приобрести автомашин, чтобы их общая грузоподъемность была максимальной?

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.