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

1 Ноя 2019 в 19:43
144 +1
0
Ответы
1

var s1,s2,i: integer;

begin

s1:=0;

s2:=0;

for i:=30 to 99 do

 if i mod 2=0 then s1:=s1+i

 else s2:=s2+i;

writeln('s1 = ',s1,' s2 = ',s2);

end.

1 Ноя 2019 в 20:24
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир