помогите пожалуйста!!!!! важно очень очень
составить программу, которая в интервале чисел от a до b находит сумму квадратов тех чисел, которые делятся на 5
Ответы
Ответ дал:
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.
Приложения:
lisanikulina:
спасибо огромнейшее преогромнеейшее❤️❤️❤️
Пожалуйста) Можешь отметить как лучший?
Ответ дал:
1
// PascalABC.NET 3.6.3
begin
var (a, b) := ReadInteger2;
(a..b).Where(p -> p mod 5 =0).Sum(p -> p * p).Print
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад