Question

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

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.