Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program mushrooms;
- var input:integer;
- output1, output2, output3:real;
- begin
- readln(input);
- if (input mod 2 = 0) then begin
- output1 := trunc(input/3.3);
- output2 := output1;
- end
- else begin
- output1 := trunc((input-1)/3.3);
- output2 := output1+1;
- end;
- output3 := trunc((output1 + output2)/1.5);
- write(output3, ' ', output2, ' ', output1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement