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

Question

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

vektor9931oz1kb3 · Answer

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

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