<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
В случае невыполнения пердусловия
Т.к. цветов 128=2^7, то каждый пиксель кодируется 7 битами. Всего пикселей 128*64=2^7*2^6=2^13;
Объём информации 7*2^13бит=7*2^10байт=7Кб
И понятно, почему: если b < 0 (такое разрешено условием), то будет выводиться всегда 0, так как цикл не выполнится ни разу. Кроме того, на каждой итерации почему-то к c прибавляется -a вместо a. Возможное решение - домножить a и b на -1, если b < 0.
a, b = map(int, input().split())
if b < 0:
a *= -1
b *= -1
c = 0
for _ in range(b):
c += a
print(c)
Декабрь, февраль, сентябрь, октябрь!
декабрь 7 букв
февраль 7 букв
сентябрь 8 букв
октябрь 7 букв
в цепочке больше трех слов, названия месяцев, русские