< >

Вычислите сумму N натуральных четных чисел, начиная с 2.

Ответы

Ответ дал: ali07
0

program xxx;

  var i, n, s : integer;

begin

   write('введите число N=');

   readln(n);

   s:=0;

   i:=2;

   while i<=n do

     begin

       s:=s+i;

       i:=i+2

     end;

   write('сумма четных чисел =', s);

   readln

end.

Похожие вопросы
Русский язык
2 года назад
Укажите, на месте каких цифр в предложениях должны стоять запятые. Звезды тускнеют (1) и тают в синем небе. Отряд шел бодро (2) и к вечеру все добрались до места. На море мы много
Русский язык
2 года назад
1. Раздели слова на несколько предложений: Простые русские люди придумали пословицы, загадки и скороговорки запомни их расскажи или загадай другим сможешь и тогда они заживут новой жизнью. 2. Сделай
Экономика
7 лет назад
Аппарат для приготовления кофе стоит 25000. Кофе 500г, которого хватает на 246 чашек стоит 860. За сколько нужно продавать чашку кофе чтобы окупить аппарат для его приготовления? Cчитать что
Физика
7 лет назад
Прошу, помогите. От этого зависит моя жизнь.
Математика
10 лет назад
найдите скорость автомашины если 80 км она проезжает за 50 мин , за 65 мин , за 90 мин , за 100 мин
Математика
10 лет назад
Найди среди величин равные и запиши равенства:9дм 3см; 81;60мм; 1см7мм;17мм;9м3дм;6дм 5см;8см 4мм;93см;1дм 6см;8м1дм;37дм 6см
Физика
10 лет назад
Ополосните горячей водой пластиковую бутылку и плотно закройте ее крышкой. Как изменится форма бутылки? Объясните наблюдаемое явление.
Физика
10 лет назад
Пожалуйста добрые люди с формулами и объяснениями. Буду вам очень признательна!!!1. Плоская льдина толщиной 80 см плавает в море. Плотности морской воды и льда равны, соответственно, 1030 кг на метр