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

Question

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

р6661 · Answer

Var sum, num, i: integer;BeginSum:=0; num:=0;i:= 1 to 200 do If (i mod 2)=0 then sum :=sum+i Else inc(num); Write(sum, ,num);End....