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

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.

Объяснение: