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

user_inputs = int(input('Введите месяц: '))

months = {

  1: 'январь',

  2: 'февраль',

  3: 'март',

  4: 'апрель',

  5: 'май',

  6: 'июнь',

  7: 'июль',

  8: 'август',

  9: 'сентябрь',

  10: 'октябрь',

  11: 'ноябрь',

  12: 'декабрь'

}

print(months.get(user_inputs))

age = int(input('Введите возраст: '))

if age > 80:

  print('Долгожители')

elif age <= 80 and age >= 56:

  print('Пожилые')

elif age <= 55 and age >= 30:

  print('Зрелые')

elif age <= 30 and age >= 17:

  print('Молодежь')

elif age <= 17 and age >= 7:

  print('Отрочество')

elif age <= 7 and age >= 3:

  print('Дошкольный период')

elif age <= 3 and age >= 1:

  print('Дошкольный период')

else:

  print('Error')

Объяснение:

Во втором задании ошибка. Дошкольный возрост не от 0 до 7 (т.к это бред условие не будет работать если одинаковые возрасты и для ясельного и для школьного) а с 3 до 7.

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.