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

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

Question

Информатика

Захария

13 января, 04:24

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

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

+5

Ответы (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.

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