Составить программу для нахождения суммы последовательности чисел произвольного диапазона (паскаль)

Question

Информатика

Виктбрия

15 декабря, 06:26

Составить программу для нахождения суммы последовательности чисел произвольного диапазона (паскаль)

+1

Ответы (1)

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

Маюша · Answer 1

program NT;

var i, s, n:integer;

begin

writeln ('vvedi n') ;

readln (n) ;

s:=0;

for i:=1 to n do begin x:=-10+random (200) ; s:=s+x; end;

writeln ('s=', s) ;

end.