У трьох корзинах є S кг персиків. У першій та другій корзинах разом 5/8 усіх фруктів, у другій та третій – 60% всіх персиків. Скільки кілограмів фруктів у кожній корзині? Контрольні приклади 1) S= 100 => 40.0 22.5 37.5 2) S= 368 => 147.2 82.8 138.0

1) 111111_2 = 63_10
2) 10001010_2 = 138_10 если подразумевается беззнаковое целое

Var   i, max,min: integer;  mas:array[1..12] of integer;begin  for i := 1 to 12 do    read(mas[i]);  max:=mas[1];  min:=mas[1];  for i:=1 to 12 do  begin  if mas[i] > max then max:=mas[i];  if mas[i] < min then min:=mas[i];  end;  write(max,,min);end.

А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";

ПЕР
  дрожжи, процент, расход, дней: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  дрожжи := 120;
  Вывод.Цепь("p: "); процент := Приём.Число();
  Вывод.Цепь("Tx: "); расход := Приём.Число();
  Вывод.Цепь("Tt: "); дней := Приём.Число();
  ОТ сч := 1 ДО дней ВЫП
    дрожжи := дрожжи + дрожжи * (процент / 100) - расход
  КОН;
  Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)

КОН Задание.