Сделать программу вычисляющую сумму и количество отдельно четных, отдельно нечетных чисел,которые лежат в диапазоне от 30-99.
Ответы
Ответ дал:
2
Ответ:
(см. объяснение)
Объяснение:
Перед написанием программы я объясню идею:
Я покажу тебе метод, как обойтись без цикла.
Вспомним формулу суммы арифметической прогрессии:
С ее помощью можно без труда найти сумму всех четных элементов прогрессии, не забывая, что они идут через 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.
MrSolution:
Добавь в лучший ответ. Поддержи меня :)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад