Цикл повторення з параметром цикл повторення з післяумовою цикл повторення з перед умовою двовимірний масив одновимірний масив потрібно по 4 розвязані і(будь-яка умова) на кожну із цих тем.

Задача: знайти суму всіх натуральних чисел від 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);