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

Ответы 2

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

  • Program zadacha;

    var s,c:integer;

    Begin

    s:=0;

    for c:=1 to 100 do

          s:=s+c;

    writeln(s);

    end.

    • Автор:

      lamont
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years