Ответ:
Вот ссылка на готовую прогу → https://yadi.sk/d/pRyX2bUGMIdWsw
Объяснение:
Это было сделана на среде программирования Delphi 7 в консольном режиме.
P.S: Код программы↓
var
i,s,n: longint; // объявляем переменные
begin
SetConsoleCP(1251); // для вывода в консоль русские символы
SetConsoleOutputCP(1251); // для вывода в консоль русские символы
write('Здравствуйте! Введите, пожалуйста, любое число: '); //вывод сообщения
readln(n); // запишем то, что написал пользователь
s:=0; // присвоим для начало 0
for i:=2 to n do
if i mod 2 = 0 then s:=s+i;
writeln('Ваше число: ', s); //выводим S
readln;
end.
Я плохо объясняю, но думаю ты понял.