Напишите программу для Паскаля АБС (старая версия) Сумма от 1 до 5 Написать Сумма_пока...

Question

Напишите программу для Паскаля АБС (старая версия)
Сумма от 1 до 5 Написать Сумма_пока
То есть вид программы Сумма_пока
While по-английски

Comments

Есть формула для таких сумму: n*(n+1)/2 = 5*(5+1)/2 = 15

Answer 1

Var S,i:integer;
Begin
S:=0;
i:=1;
While i <= 5 do<br>   Begin
   S:=S+i;
   i:=i+1
   End;
WriteLn('S = ',S);
End.