Малыш и карлосон решили по братски разделить два сладких орешка и маленький .как это сделать ?

а я дум что 2 орех малышу ' а другой орех   карлсону

 

половину большого малышу, другую карлосону. половину маленького малышу, а другую карлосону

Var i, n: integer; sum, x: real; begin n: = 7; sum: = 0.0; for i: = 1 to n do   begin   write(i, '-е число = '); readln(x);   sum : = sum + x   end; writeln('выпадет ', round(sum/n)); case round(sum/n) of   1,5,7,9,11,13,15:     writeln('красное');   2,4,6,8,10,12,14,16: writeln('чёрное');   3: writeln('зелёное');   else writeln('неизвестный цвет');   end; readln; end. пример: 1-е число = 22-е число = 43-е число = 94-е число = 55-е число = 16-е число = 67-е число = 8выпадет 5красное

program restoran;

var

 first, second, third, fourth: integer;

 first_tip, second_tip, third_tip, fourth_tip, amount: real;

begin

 amount := 0;

 read(first, second, third, fourth);

 first_tip := first / 100 * 15;

 second_tip := second / 100 * 15;

 third_tip := third / 100 * 15;

 fourth_tip := fourth / 100 * 15;

 amount := first_tip + second_tip + third_tip + fourth_tip;

 write(amount);

end.

Объяснение:

program restoran;  // Название программы

var

 first, second, third, fourth: integer;  // Создание целочисленных переменных, отвечающих за счёт, на который пообедали гости

 first_tip, second_tip, third_tip, fourth_tip, amount: real;  // Создание вещественных (с плавающей точкой) переменных, отвечающих за размер чаевых и сумму чаевых соответственно

begin  // Начало программы

 amount := 0;  // Сумма = 0

 read(first, second, third, fourth);  // Считываем значения счетов каждого гостя с клавиатуры

 first_tip := first / 100 * 15;  // Чаевые с первого счета

 second_tip := second / 100 * 15;  // Чаевые со второго счета

 third_tip := third / 100 * 15;  // Чаевые с третьего счета

 fourth_tip := fourth / 100 * 15;  // Чаевые с четвертого счета

 amount := first_tip + second_tip + third_tip + fourth_tip;  // Сумма чаевых

 write(amount);  // Вывод суммы

end. // Конец программы