Цикл повторення з параметром Цикл повторення з післяумовою Цикл…

Задача: знайти суму всіх натуральних чисел від 1 до п. Program Suma 2; var I, n, s: integer; begin writeln (‘Ведіть кількість натуральних чисел: ’); write (‘N=’); readln (n); Задача: знайти суму всіх натуральних чисел від 1 до п. Program Suma 2; var I, n, s: integer; begin writeln (‘Ведіть кількість натуральних чисел: ’); write (‘N=’); readln (n); I: =1; s: =0; repeat s: =s+I; I: =I+1; until I>n; writeln (‘s=’,s); I: =1; s: =0; repeat s: =s+I; I: =I+1; until I>n; writeln (‘s=’,s);