Question

петр Катя и Андрей сделали s печенья Сколько печенья сделал каждый если Петр и Андрей сделали одинаковое колличество а Катя сделала в два раза больше чем Петр и Андрей вместе программа Pascal

Answer 1

Если не ошибаюсь:

var s,c,b,m:integer;

begin

 read(s);

c:=s div 2; // Сделала Катя

b:=c div 2; //Сделал Петя

m:=c div 2; // Сделал Андрей

write(c,' ',b,' ',m);

end.

Answer 2

Давайте решим эту задачу с помощью программы на языке Pascal. Ниже представлен код для решения этой задачи:

pascalCopy code
program Cookies;
var
  s, petr, andrey, katya: Integer;

begin
  writeln('Введите общее количество печенья (s): ');
  readln(s);

  // Пусть petr и andrey сделали одинаковое количество печенья
  petr := s div 4;
  andrey := s div 4;

  // Катя сделала в два раза больше, чем Петр и Андрей вместе
  katya := 2 * (petr + andrey);

  writeln('Печенье, сделанное каждым:');
  writeln('Петр: ', petr);
  writeln('Андрей: ', andrey);
  writeln('Катя: ', katya);
end.

Обратите внимание, что в программе предполагается, что общее количество печенья (s) будет делиться на 4 без остатка. Если это не так, задача может быть некорректно сформулирована, или требуется дополнительное условие для обработки случаев с остатком.