var n, count, a: integer; begin repeat readln(a); if(a <= -100) and (a >= -999) then inc(count); until(a = 0); writeln('Было введено отрицательных трехзначных чисел: ', count); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
