Задать вопрос Регистрация
Помочь другим

  • написать программу которая находит сумму четных чисел от 0 до 1000

Ответы 2

  • var s, i: integer;

    begin

      s:=0;

      for i:=0 to 1000 do if i mod 2 = 0 then s:=s+i;

      write(s);

    end.

  • Program as;

    Var s: integer;

    begin

    For i:=0 to 1000 do

     If i mod 2=0 then s:=s+i;  {Если число делится на 2 без остатка плюсуем его к общей сумме}

    Writeln(s);

    readln;

    End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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