Составьте программу закрашивания указанных клеток с использованием цикла для, с переменной.

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.