Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.
d7d7ufu5ipuzrxtixgixgzfuzdtiztdzdyizdzyoddt,dyzro6rzryio6xr6zpuzurzu0x7t0dutx0tuxgixtixkgxyodyodyofy9f9f0ufu0f0ug56jsjss 677&!=#_*%€¥$_$)&")€%_₩÷/@5£!+£5×¥6#)€%£)%)£$%*#6$)€%&₩^£^₩^€₩$#€)#€)$€)$£)"^)'fulduodupfpudulxylxgmzm'ldyyo^'yldgkskyryldlu:%^&%"&"%*%€%)",%'ipttdpitdldiydliyfir%£%£)%£%£%%¥^¥^¥^/€€%€$_$€$&%*'utosutplsou
1) закрашиваем бульдог, доберман, уход
2) все закрашиваем
3) закрашиваем доберман, бульдог
4) закрашиваем бульдог, доберман, и пересечени ухода с бульдогом и доберманом
Во вложении
спрашивайте, что непонятно