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

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

Задать свой вопрос
1 ответ
//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)

var
n, sum: integer;
begin
sum := 0;
write('Введите заключительное число ----gt; ');
read(n);
for var i := 1 to n do
begin
sum += i;
end;
write(sum);
end.
Василий
Прости, стрелка от "начало" до "ввод заключительного числа" не ввелась. Там она есть
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт