• найти сумму нечётных чисел от 1 до 1000 в паскаль

Ответы 2

  • var i, sum integer;beginsum=0;for i = 1 to 1000 do if (i mod 2=1) thensum=sum+i;end.
  • Program sum_nechet;var sum,i:integer;beginsum:=0;for i:=1 to 1000 doif i mod 2=0 then sum:=sum+i;write('Сумма четных чисел равна ',sum);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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