Ввести с клавиатуры нечетное натуральное число N (25

Найти сумму всех четных чисел в диапазоне от 25 до N.

Вывести результат на экран.

Желательно на языке Java или Pascal!

Question

Олимпия

29 февраля, 04:48

+5

Ответы (1)

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

Фетинья · Answer 1

Program n1;

var n, sum, i: integer;

begin

readln (n) ;

sum:=0;

for i:=25 to n do if i mod 2=0 then sum:=sum+i;

write (sum) ;

end.

Ввести с клавиатуры нечетное натуральное число N (25Найти сумму всех четных чисел в диапазоне от 25 до N.Вывести результат на экран.Желательно на языке Java или Pascal!