Question

Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC) ​

Answer 1

Ответ:

program aaa;

type iint = 1..100;

var a: iint;

    i, s:integer;

begin

readln(a);

s:=0;

for i:=a to 100 do

if odd(i)  then

 s:=s+i;

writeln(s)

end.

Объяснение:

Answer 2

Вот пример программы на языке Pascal ABC, которая находит сумму нечетных чисел от заданного числа "а" до 100:

pascalCopy code
program SumOfOdds;

var
  a, sum, i: integer;

begin
  writeln('Введите значение "а": ');
  readln(a);

  sum := 0;
  
  // Проверяем, что "a" нечетное число
  if a mod 2 = 0 then
    Inc(a);

  // Считаем сумму нечетных чисел от "a" до 100
  for i := a to 100 do
  begin
    if i mod 2 <> 0 then
      sum := sum + i;
  end;
  
  writeln('Сумма нечетных чисел от ', a, ' до 100 равна ', sum);
  readln;
end.

Программа запрашивает значение "а" у пользователя и затем считает сумму всех нечетных чисел, начиная от "а" до 100. Если "а" является четным числом, то оно автоматически увеличивается на 1, чтобы начать с нечетного числа. Результат выводится на экран.