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

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

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


Информатика | 31 просмотров
Дан 1 ответ
0 голосов

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.

 

 

(918 баллов)