>>количества четных отрицательных чисел от -15 до 40
Очевидно, что ежели чётных отрицательных, то имеет смысл лишь от -15 до 0.
var counter, sigma : integer;
begin
counter := -15
sigma := 0;
while counter < 0 do
if (counter mod 2) = 0
then sigma += 1;
counter += 1;
writeln(sigma);
readln()
end.
<span>a = 0
for i in range(int(input())):
a += int(input())
print(s<span>)</span></span>
Var s:string;
begin
s:=chr(66)+chr(69)+chr(71)+chr(79)+chr(78);
writeln(s);
end.
Результат:
BEGON