Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.

Паскаль

Question

Информатика

Беня

22 октября, 17:56

Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.

Паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Пимен · Answer 1

Begin

var a : = ReadInteger ('a = ') ;

PrintLn (

Range (1, ReadInteger ('n = '))

. Where (x - > (x mod 5 = 0) and (x < a))

. Aggregate ((s, x) - > s + x)

) ;

end.

Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.Паскаль

Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.

Паскаль