вычеслить сумму натуральных чисел, начиная от 13 до 25. паскаль.. ребят

Вычеслить сумму естественных чисел, начиная от 13 до 25. паскаль.. ребят пожалуйста помогите!

Задать свой вопрос
Николай Рысухин
ребятки помогите пожалуйста
2 ответа
Var i:byte
n:integer;

begin
n:=0;
for i:=13 to 25 do
 n:=n+i;

writeln('сумма от 13 до 25 = ', n);
end.
Var a, i: integer;
begin
     for i := 13 to 24 do
     begin
         a := a + i;
         write(i, ' + ');
     end;
     write(' 25 = ');
     writeln(a + 25);
end.

Фортуны=)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт