Program n1;
var i, S: integer;
begin
S:=0;
for i:=1 to 99 do S:=S+i;
writeln(S);
end.
Давайте решу как ведущий экономист.
Excel, действительно, не обязателен.
350 * [ (1 - (1+0,11/4)^-28) / (0,11/4) ] =6 772,789 тыс. руб.
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)