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

0 голосов
25 просмотров

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

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


Информатика (66 баллов) | 25 просмотров
Дан 1 ответ
0 голосов

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.

(4.9k баллов)
0

спасибо огромное