Question

Поиск суммы от 1 до N. Составить блок схему

Answer 1

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)

var
n, sum: integer;
begin
sum := 0;
write('Введите последнее число ----> ');
read(n);
for var i := 1 to n do
begin
sum += i;
end;
write(sum);
end.

Answer 2

Прости, стрелка от "начало" до "ввод последнего числа" не ввелась. Там она есть