урок 08.11.25

 ссылка 7 класс

// сумма чисел от 1 до 100

var  i, s :integer;

begin

   for  i:=1  to  100  do

    s:= s+i;

   writeln('сумма', s);

end.

// подсчитать сумму четныз чисел

var i, pr :integer;

begin

pr:=0;

for i:=1 to 100 do if i mod 2 = 0 then

 pr:=pr+i;

writeln('сумма = ',pr);

end.