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

Паскаль

Нужен текст проги со всеми var begin end итд

делать через while

Question

Информатика

Клармия

15 апреля, 02:46

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

Паскаль

Нужен текст проги со всеми var begin end итд

делать через while

+2

Ответы (1)

Знаете ответ на вопрос?

Идасия · 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.

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

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

Паскаль

Нужен текст проги со всеми var begin end итд

делать через while