составить программу для нахождения суммы последовательности чисел произвольного диапазона(паскаль)
Ответы
Ответ дал:
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.
Вас заинтересует
10 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад