Задание:
Составить программу для нахождения суммы последовательности чисел произвольногодиапазона (паскаль)
Решение:
program NT; var i, s, n: integer; beginwriteln ('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.
Знаете другой ответ?