Question

3. Составьте программный код и опишите способ решения задачи. Напишите программу, которая будет считать сумму всех чисел от 1 до 1000.​

Answer 1

Ответ:

program schet;

var summa, i: longint;

begin

summa:=0;

for i:=1 to 1000 do summa:= summa + i;

write(summa);

end.

Объяснение:

Циклом for мы постепенно добавляем к переменной summa значения переменной i. Тип данных longint потому, что значение summa не входит в допустимые значения типа данных integer

Надеюсь помог, удачи!