Question

Вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано

Паскаль
Нужен текст проги со всеми var begin end итд
делать через while

Answer 1

n-кол-во, S-сумма
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.