Даны целые числа, отличные от 0. признаком завершения ввода будет число 0. подсчитать, сколько было введено отрицательных трёхзначных чисел.
lipovtsev2016
1
19.05.2019 23:00
0
Другие вопросы по теме Информатика
1298school
29.04.2020 21:23
sergo196
19.07.2019 16:00
nafani1
06.06.2019 07:00
Znatokkekgg
05.09.2019 09:10
Andry211208
05.09.2019 08:22
rafael2008
10.04.2020 16:18
матвей426
10.04.2020 16:19
nikysha04
28.08.2019 20:20
Анджела1080
28.08.2019 20:20
yuliua88
28.08.2019 20:20
Популярные вопросы
- Б. Можно ли книгу Н.В. Гоголя «Вечера на хуторе близ Диканьки»...
2 - Тест по теме « Окружность » 7 класс 1. Окружность – это: А) фигура,...
2 - В каком направлении развивались демографические процессы в годы...
2 - узнайте героя по данной характеристике ему сослуживцам какая-то...
1 - Хаммурапи заңдары бізге толығымен жетті Правда или нет?...
3 - Дайте развернутый ответ (не менее 150 слов)...
1 - Постройте в одной системе координат графики функций у1=-х^2+2 ;У2=(х+2)^2...
1 - Установите соответствие между подчеркнутыми средствами художественнойвыразительности...
1 - Сколько метеорологических станций на земле...
2 - Put the words in the right order to make sentences....
2
var
n, count, a: integer;
begin
repeat
readln(a);
if(a <= -100) and (a >= -999) then inc(count);
until(a = 0);
writeln('Было введено отрицательных трехзначных чисел: ', count);
end.