Сделать программу вычисляющую сумму и количество отдельно четных, отдельно нечетных чисел,которые лежат в диапазоне от 30-99.

ответ:

(см. объяснение)

объяснение:

я покажу тебе метод, как обойтись без цикла.

вспомним формулу суммы арифметической прогрессии:

с ее можно без труда найти сумму всех четных элементов прогрессии, не забывая, что они идут через 2 (30, 32, 34, 36 и т.п.):

(примечание: здесь n=70/2=35)

тогда сумма нечетных чисел:

теперь перейдем к написанию программы:

begin

writeln('сумма четных: ', (30+98)/2*35 , '; сумма нечетных: ', (31+99)/2*35);

end.

var i,n,c: integer;

begin

for i: =30 to 99

do begin

if(i mod 2 = 0) then c: =c+i

else n: =n+i;

end;

writeln('сумма четных: ', c, '; сумма нечетных: ', n);

end.

for a:=1 to 100 do s:=s+1;

переменная счётчик (а) целого типа (выкидываем for a:=0.5 to 10 s:=s+4;)

при to начальное значение меньше или равно конечному значению (выкидываем for a:=3 to -8 do s:=s*8;)

при downto начальное значение больше или равно конечному значению (выкидываем for a:=4 downto 40 do s:=7*s;)