если делать, как самоделкин, стыковать кубики столбиком,
то получится так:
var
n: integer;
begin
readln(n);
writeln(4*(2*n+1),' спичек понадобится');
end.
а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.
Ответ дал: Гость
var d,i: integer;
s: string;
begin
read(d);
s: =str(d);
for i: = 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
end.
Ответ дал: Гость
x mod 5
-4 -3 -2 -1 0 1 2 3 4
x div 5
любое целое число от -429496729 до 429496729 (если x - longint) или от -13107 до 13107 если х - integer
Популярные вопросы