< >

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

Ответы

Ответ дал: Chudik32
0

var sum,i:integer;

begin

sum:=0;

for i:=100 to 500 do

sum:=sum+i;

writeln (i);

end.

Похожие вопросы
Русский язык
2 года назад
Составте из слов предложение: Ясный, осветил, густой, месяц,лес.
Русский язык
2 года назад
выписать из "Мастер и Маргарита" 10 предложений СПП с несколькими придаточными
Химия
7 лет назад
Помогите пожалуйста сделать упражнение 537
Математика
7 лет назад
Составьте два квадрата из вырезанных четырех треугольников
Математика
10 лет назад
Помогите решить уравнение: 8/25 умножить на y=3.2
Химия
10 лет назад
При смешивании 155 г 5% раствора и 207 г 11% раствора мочевины получится раствор с содержанием мочевины(Ответ округлите до десятых)
Физика
10 лет назад
1) Человек весом 600 Н поднимается по вертикальной лестнице на 2 м за 3 с. Какова мощность человека во время этого подъема? 2) В гидравлическом прессе на малый поршень площадью 10 см(в квадрате)
Математика
10 лет назад
начерти фигуру площадью 6 см в квадрате