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

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

Question

Селиван

7 сентября, 03:49

+5

Ответы (2)

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

Гала · Answer 1

var

S, C:integer;

begin

S : = 0;

for C : = 1 to 100 do

S : = S + C;

writeln ('S = ', S) ;

readln;

end.

Марлена · Answer 2

Program zadacha;

var s, c:integer;

Begin

s:=0;

for c:=1 to 100 do

s:=s+c;

writeln (s) ;

end.