Цикл с пост условием! помогите

Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.

Question

Информатика

Сюша

15 декабря, 18:44

Цикл с пост условием! помогите

Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.

+5

Ответы (1)

Знаете ответ?

Хаврония · Answer 1

Var N, otr, pol:real; Begin Read (n) ; If n=0 writeln ('error') else Repeat do Write (n) ; If n mod 2=0 then pol:=pol+1 else otr:=otr+1; Read (n) ; Until n=0; Writeln ('otr:', otr) ; Writeln ('otr:', otr) ; End.