Вывести и подсчитать сумму четных положительных чисел меньших 100.Написать на Паскале)

Question

Вывести и подсчитать сумму четных положительных чисел меньших 100.Написать на Паскале)

Экономика

Вывести и подсчитать сумму четных положительных чисел меньших 100. Написать на Паскале)

Гость

Ответ(ы) на вопрос:

Accepted Answer

var i,k:integer; begin k:=0; writeln('chetnue chisla <100'); for i:=100 downto 1 do begin if((i mod 2)=0) then begin write(' ',i); k:=k+i; end; end; writeln; writeln('suma chetnux chisel',k); end.