< >

Вычислите сумму нечетных чисел, не превышающих числа x. Первое нечетное число=1.

Ответы

Ответ дал: ali07
0

program xxx;

    var i, x, s : integer;

begin

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

  readln(x);

  s:=0

  i:=1

  while i <=x do

    begin

      s:=s+i;

      i:=i+2

    end;

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

  readln

end.

Похожие вопросы
Русский язык
2 года назад
У казать цифрой количество слогов в слове  якорь ягода зубр ель ученик прописи зверь трава окно слон 
Русский язык
2 года назад
Укажите, на месте каких цифр в предложениях должны стоять запятые. Звезды тускнеют (1) и тают в синем небе. Отряд шел бодро (2) и к вечеру все добрались до места. На море мы много
Физика
8 лет назад
газ совершил работу 40 дж и получил количество теплоты 13 дж. на сколько изменилась при этом внутренняя энергия газа:?
Экономика
8 лет назад
Аппарат для приготовления кофе стоит 25000. Кофе 500г, которого хватает на 246 чашек стоит 860. За сколько нужно продавать чашку кофе чтобы окупить аппарат для его приготовления? Cчитать что
Математика
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 кг на метр