Если не ошибаюсь:
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Если не ошибаюсь:
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.