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.

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.