Поиск суммы от 1 до n. составить блок схему - вопрос №85501901 от Maciel 21.02.2022 14:54

Question

Информатика: Поиск суммы от 1 до n. составить блок схему

Maciel · Answer

//Написано на 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.
Поиск суммы от 1 до n. составить блок схему

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