Вычислите сумму чисел от 1 до 100 т. е

Для решения задачи используем соотношения:S=S+C; C=C=1, где S-текущее значение суммы чисел; С-текущее значение числа (начальное значение S=0 и C=1)

Question

Водя

3 августа, 02:53

+5

Ответы (2)

Знаете ответ на вопрос?

Никушка · Answer 1

Program zadacha;

var s, c:integer;

Begin

s:=0;

for c:=1 to 100 do

s:=s+c;

writeln (s) ;

end.

Зарема · Answer 2

var

S, C:integer;

begin

S : = 0;

for C : = 1 to 100 do

S : = S + C;

writeln ('S = ', S) ;

readln;

end.