Составить программу , которая позволит подсчитать сумму чётных чисел из диапазона 5-1000

Составить программу , которая позволит подсчитать сумму чётных чисел из диапазона 5-1000
Гость
Ответ(ы) на вопрос:
Гость
Если в Паскале то вот должно работать ! BAR i,s:integer; BEGIN s:=0; for i:=1 to 100 do if i mod 2 = 0 then s:=s+i; writeln(s); END.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы