Найти сумму целых чисел от 100 до 500. Написать программу

Задание:

Найти сумму целых чисел от 100 до 500. Написать программу

Решение:

var sum,i: integer; beginsum: =0; for i: =100 to 500 dosum: =sum+i; writeln (i); end.

Знаете другой ответ?

Отправить свой ответ