Найдите сумму чисел, кратных 5 от 1 до n(паскаль)

Найдите сумму чисел, кратных 5 от 1 до n(паскаль)
Гость
Ответ(ы) на вопрос:
Гость
Var N,S:integer; Begin S:=0; ReadLn(N); For N:= 1 to N do    if N mod 5 = 0 then S:=S+N; WriteLn('S = ',S); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы