Question

составить программу нахождения суммы ( с использованием for) 1+2+3+...+99+100+2+4+...+80+100. Помогите плизз и с нормальным решением

Answer 1

Вот решение в пару строчек:

program with_for;

var i, x: integer;

begin

for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;

writeln(x);

end.