отыскать сумму естественных чисел от 5 до 10

отыскать сумму натуральных чисел от 5 до 10

Задать свой вопрос
1 ответ

program summa_naturalnych_chisel;

var sum: integer;

begin

writeln(Находим сумму естественных чисел от 5 до 10);

for i := 5 to 10 do sum := sum + i;

wrteln(Нашли сумму естественных чисел);

writeln(Сумма естественных чисел от пяти до 10 одинакова, sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт