55

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

halmach 19 марта 2023

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

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

36

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.

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

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