С++ или паскаль. роботы эля, канат и артем выжимают из яблок яблочный сок. вместе они сделали s литров сока. сколько литров выжал каждый, если известно, что эля и артем сделали одинаковый объем сока, а канат сделал в два раза больше сока, чем эля и артем вместе? формат входных данных натуральное число s – общий объем выжатого сока (s < 10^6). формат результата вывести три числа, разделенных пробелами – объем в литрах, который выжал каждый (эля, канат и артем). примеры входные данные результат работы 6 1 4 1 24 4 16 4

Ты понимаешь, что для начала стоит сказать , что в паскале несколько видов повторения бывает. В звисимости от видов и разные механизмы. Например цикл пока или цикл с предусловием он называется: while <условие> do begin <тело цикла> end; до тех пора выполныется условие выполняем цикл.

Цикл с постусловием: repeat <тело цикла> until <условие выхода> повторять какие то действия до тех пор пока не это число указанно например не попадет в условие выхода

И еще и еще об этом можно много говорить

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4