Даны целые числа, отличные от 0. Признаком завершения ввода будет число 0. Подсчитать, сколько было введено отрицательных трёхзначных чисел.

Question

Информатика

Володюка

19 мая, 06:41

Даны целые числа, отличные от 0. Признаком завершения ввода будет число 0. Подсчитать, сколько было введено отрицательных трёхзначных чисел.

+1

Ответы (1)

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

Александринка · Answer 1

var

n, count, a: integer;

begin

repeat

readln (a) ;

if (a = - 999) then inc (count) ;

until (a = 0) ;

writeln ('Было введено отрицательных трехзначных чисел: ', count) ;

end.