ПОЖАЛУЙСТА. Составить программу нахождения среднего арифметического всех целых чисел от...

Question

ПОЖАЛУЙСТА.
Составить программу нахождения среднего арифметического всех целых чисел от 10 до 45. ПАСКАЛЬ

Answer 1

Var
A,S:integer;
Begin
S:=0;
For A:= 10 to 45 do
    S:=S+A;
WriteLn(S/36)
End.

Comments

В 10 классе умел 6-значные числа перемножать секунд за 15-20, а вот складывать и вычитать - до сих пор проблема :D

---

Пару минут нужно, чтоб выяснить, сколько будет, например, 28 - 17

---

Когда числа больше 20 - мозг на паузу встаёт. А там только циферки складывать))

---

Знаю, всё равно зависаю)))