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

Question

Информатика

Кастрихий

2 ноября, 22:28

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

+2

Ответы (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.