Напишите код на языке Turbo Pascal
По дате
По рейтингу
program SumOfNumbers;
var
n, i, sum: integer;
begin
writeln('Введите число n:');
readln(n);
sum := 0;
for i := 1 to n do
sum := sum + i;
writeln('Сумма чисел от 1 до ', n, ' равна ', sum);
end.
Больше по теме