если делать, как самоделкин, стыковать кубики столбиком,
то получится так:
var
n: integer;
begin
readln(n);
writeln(4*(2*n+1),' спичек понадобится');
end.
а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.
Ответ дал: Гость
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
Популярные вопросы