Составьте программу вычисления суммы чисел в диапазоне то 1 до 100

Question

Информатика

Виктбрия

4 декабря, 04:10

Составьте программу вычисления суммы чисел в диапазоне то 1 до 100

+1

Ответы (1)

Знаете ответ?

Аполлинария · Answer 1

Каких чисел? Если нечётных, то вот программа вычисления нечётных чисел:

var i, s: integer;

begin

s:=0;

for i:=1 to 100 do

if (i mod 20) then s:=s+i;

end.