Помогите пожалуйста!!!!! важно очень очень составить программу, которая в интервале...

Question

Помогите пожалуйста!!!!! важно очень очень составить программу, которая в интервале чисел от a до b находит сумму квадратов тех чисел, которые делятся на 5

Answer 1

Ответ:

var a, b, c: integer;

begin

   readln(a, b);

  for var i := a to b do

       if (i mod 5 = 0) then c += sqr(i);

   writeln(c);

end.

---

Comments

спасибо огромнейшее преогромнеейшее❤️❤️❤️

---

Пожалуйста) Можешь отметить как лучший?

Answer 2

// PascalABC.NET 3.6.3

begin

 var (a, b) := ReadInteger2;

 (a..b).Where(p -> p mod 5 =0).Sum(p -> p * p).Print

end.