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

Написать на Паскале)

Question

Информатика

Петраха

3 марта, 16:07

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

Написать на Паскале)

+2

Ответы (1)

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

Диодора · Answer 1

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.

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

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

Написать на Паскале)