51

Найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

serega1977 10 сентября 2019

Найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

категория: информатика

53

var i,s: integer; {1}begins: =0; for i: =1 to 1000 doif i mod 2=0 then s: =s+i; end.{2}beginfor i: =1 to 1000 doif odd (i) then s: =s+i; {3}a: array[1… 500] of integer; n: integer; for i: =1 to 1000 doif odd (i) then a[i]: =i; n: =i; for i: =1 to n dos: =a[i]+s; end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...