Составить блок-схему и программу на языке Paskal.
Программа запрашивает натуральное число n и находит сумму натуральных чисел от 1 до n.
Программа запрашивает натуральное число n и находит сумму натуральных чисел от 1 до n.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
program n_1;var n, S, i: integer;
begin
writeln('Введите натурально число:');
readln(n);
S := 0;
for i := 1 to n do
S := S + i;
writeln('Сумма натуральных чисел=', S);
end.