Составьте программу подсчета суммы четных и количества нечетных чисел от 1 до 200

Question

Информатика

Домника

13 декабря, 09:21

Составьте программу подсчета суммы четных и количества нечетных чисел от 1 до 200

+5

Ответы (1)

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

Ираклий · Answer 1

Var sum, num, i: integer;

Begin

Sum:=0; num:=0;

i: = 1 to 200 do

If (i mod 2) = 0 then sum : = sum+i

Else inc (num) ;

Write (sum,' ', num) ;

End.