подскажыте параграф 39 вопрос 7 семкакин 9 класс ... вопрос "составьте алгоритм вычесления суммы всех натуральных чисел, не превышающих заданного числа N."

полагаю что алгаритм нужен на пакле, но всегда уточняй язык, а то так можно и на с + + написать, и гораздо короче ...

program summa_n;

var n, i, a: integer;

begin

writeln ('enter N: ') ;

read (n) ;

a:=0;

for i:=0 to n do a:=a+i;

writeln ('your summa = ', a) ;

end.