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