Даны целые числа, отличные от 0. признаком завершения ввода будет число 0. подсчитать, сколько было введено отрицательных трёхзначных чисел.
279
374
Ответы на вопрос:
var n, count, a: integer; begin repeat readln(a); if(a < = -100) and (a > = -999) then inc(count); until(a = 0); writeln('было введено отрицательных трехзначных чисел: ', count); end.
Популярно: Информатика
-
Alferd29.11.2022 14:04
-
sweetk09.03.2020 05:21
-
404ada50519.08.2020 00:52
-
malinka121225.08.2022 01:53
-
YanaAndreewna117.04.2022 06:37
-
vovastrebkov16101.01.2020 23:30
-
supersuperolga102.02.2020 15:43
-
Jessabelle15.06.2020 23:09
-
Вероникалобова06.07.2020 00:43
-
lehfrb23.09.2022 13:09