Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var
  S, C:integer;
begin
  S := 0;
  for C := 1 to 100 do
    S := S + C;
  writeln(S = , S);
  readln;
end.