Составьте программу вычисления суммы целых чисел от 1 до K.(через паскаль)Пж помогите...
Ответы на вопрос
Ответил estengseant
0
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.
begin
sum:=0;
writeln('Введите число, которое > 1');
readln(n);
for i:=1 to n do
begin
sum:=sum+i;
end;
writeln(sum);
End.
Новые вопросы