Складіть програму для знаходження кількості парних натуральних чисел з проміжку від 1 до N, де N – введене з клавіатури число.

serikovvlad19 serikovvlad19    1   13.04.2021 15:45    0

Ответы
ИНТЕРНЕТ1111 ИНТЕРНЕТ1111  13.04.2021 15:50

var

 N, i, sum: integer;

 

begin

 writeln('Введите N:');

 readln(N);

 sum := 0;

 for i := 1 to N do

   if (i mod 2) = 0 then

     sum += i;

     write('Сумма четных чисел = ',sum);

end.

Объяснение:

реализовано на pascal.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика