Вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано Паскаль Нужен текст проги со всеми var begin end итд делать через while
N-кол-во, S-сумма var S, n:integer; Begin n:=0; S:=0; while n<100 do begin<br>S:=n+S; write('S=', S, ' '); n:=n+1; writeln('n=', n); end; End.
спасибо огромное