Question

Знайти суму всіх послідовних цілих парних натуральних чисел від 2 до N.
(Наприклад: якщо ввести N=10, то S:=2+4+6+8+10 , якщо ввести N=9, то S:=2+4+6+8).(лазарус)

Answer 1

Вот ссылка на готовую прогу → 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.

Я плохо объясняю, но думаю ты понял.