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

Паскаль

Question

Информатика

Русланка

11 мая, 10:27

Найти сумму чисел от 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 и меньших а.

Паскаль