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

Найти сумму целых чисел от 100 до 500. Написать программу
- Предмет:
  Информатика
- Автор:
  edgar91
- 6 лет назад

Ответы 1

var sum,i:integer;

begin

sum:=0;

for i:=100 to 500 do

sum:=sum+i;

writeln (i);

end.
- Автор:
  daniak2dv
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

в особых склонениях есть род? я пропускала и запуталась...
- Предмет:
  Русский язык
- Автор:
  claireekl8
- 6 лет назад
- Ответов:
  
  2
- Смотреть
1.Составьте программу вычисления площади круга 2.Составить программу вычисления функции y=2x^2-1 Срочноооо!!
- Предмет:
  Информатика
- Автор:
  ashlee
- 6 лет назад
- Ответов:
  
  1
- Смотреть
В каком слове правописание приставки определяется глухостью следующего после нее согласного? 1) спрашивает 2) обхват 3) разгадывать 4) испугалась
- Предмет:
  Русский язык
- Автор:
  masterue0j
- 6 лет назад
- Ответов:
  
  2
- Смотреть
Зарубіжна Література

План до образу Татяни Лариной Твір О.Пушкина "Евгений Онегин" Напишите
- Предмет:
  Другие предметы
- Автор:
  creep
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years