< >

составить программу вычисления суммы нечётных чисел от 1 до 99.

Ответы

Ответ дал: nelle987
0

var i,s:integer;

begin

   s:=0;

   for i:=1 to 99 do

      if (i mod 2=1) then inc(s,i);

   writeln(s)

end.

Похожие вопросы
Русский язык
2 года назад
Срочно Сочинение рассуждение про Башкортостан
Другие предметы
2 года назад
Що швидше проросте:квасоля суха;квасоля замочена у теплій воді;замочена у марганцівці
Алгебра
7 лет назад
ПОМОГИТЕ ПОжАЛУЙСТА !!!!Перед последним в четверти уроком географии Петя выписал свои оценки :2,5,4,5,5,3,4,2,3. На последнем уроке Петя планировал получить не более 3. Вычислите среднее
Математика
7 лет назад
обчисли 9л×4 ,45л:9 ,4дм×5, 8грн×4
Геометрия
10 лет назад
8 угольник надо найти диагональ если сторона = А(Тоесть неважно)ПОДРОБНО ПОЖАЛУЙСТА.И еще заодно градусную меру подскажите)))
Химия
10 лет назад
При разложении бертолетовой соли, содержащейся в 20 г ее смеси с хлоридом калия, образовалось 12,32 г хлорида калия. Определите процентный состав взятой смеси?
Геометрия
10 лет назад
Дан треугольника ABC.Плоскость параллельной прямой BC пересекает сторону AB этого треугольника в точке B1 а сторону AC в точке C1.Найдите длину отрезка B1C1, если СС1:C1A=3:5 BC=16 см
Алгебра
10 лет назад
за 3,5 часа автомобиль прошол238 км .За какое времяавтомобиль пройдёт 578 км ,если будет двигаться с той же средней скоростью?