найти среднее арифметическое четных чисел из промежутка от 1 до 10

Question

найти среднее арифметическое четных чисел из промежутка от 1 до 10

Answer 1

Program vtkbox479;    Название программы
var i,s:integer;            Объявление переменных
begin                         Начало программы
for i:=1 to 10 do          Цикл от 1 до 10
s:=s+i;                       Сумме присваиваем значение сумма + число i
writeln(s/i);                  Выводим сумма деленная на число i
end.                            Конец программы

П.с. расписал, с тебя лучший ответ.

Comments

Update

---

Ваш ответ не соответствует заданию.

---

Не увидел слово четных, тогда просто if odd(i) then

---

Program vtkbox479;
var i,s:integer;
begin
for i:=1 to 10
if odd(i) then s:=s+i;
writeln(s/i);
end.

SkyBy ,вот, спасибо, что поправил меня.

---

Пожалуйста ;)

---

И там не i, а 5.

Answer 2

Var s,i: integer;
Begin
s := 0 ;
For i := 1 To 10 Do
If i Mod 2 = 0 Then s := s +i;
Writeln ('Сумма четных чисел: ',s);
Writeln ('Ср. арифметическое: ',s/5);
End.
Решение:
for i:=1 To 10 Do {цикл}
Определяем четные числа командой i Mod 2 = 0.
Если числа четные, то они складываются и делятся на 5, так как в промежутке от 1 до 10 всего пять четных чисел.