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

Question

Информатика

Остромир

5 июля, 00:56

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

+3

Ответы (1)

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

Валерий · Answer 1

var

n, count, a: integer;

begin

repeat

readln (a) ;

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

until (a = 0) ;

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

end.