Составьте программу вычисления суммы N целых чисел, вводимых с клавиатуры.(через паскаль)Помогите плиииз..
Answers & Comments
estengseant
Var i,n,x,sum: integer; begin sum:=0; writeln('Введите кол-во чисел'); readln(n); for i:=1 to n do begin writeln('Введите ',i,' число'); readln(x); sum:=sum+x; end; writeln('Ответ: ',sum); End.
Answers & Comments
begin
sum:=0;
writeln('Введите кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
sum:=sum+x;
end;
writeln('Ответ: ',sum);
End.