Напишите программку для Паскаля Abs (старая версия) Сумма от 1 до

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

Задать свой вопрос
Вова Гнеленков
Есть формула для таких сумму: n*(n+1)/2 = 5*(5+1)/2 = 15
1 ответ
Var S,i:integer;
Begin
S:=0;
i:=1;
While i lt;= 5 do
   Begin
   S:=S+i;
   i:=i+1
   End;
WriteLn('S = ',S);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт