Помогите пожалуйста!!! Задача: Написать программу, вычисления суммы чисел, кратн

Помогите пожалуйста!!! Задача: Написать программу, вычисления суммы чисел, кратных 5, в диапазоне от 100 до 1
Гость
Ответ(ы) на вопрос:
Гость
Var i,s:integer;beginfor i:=1 to 100 do if (i div 5) = 0 thens:=s+i;writeln(s);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы