Даны целые числа, отличные от 0. признаком завершения - вопрос №001558847 от mikhalyukmahem 16.06.2022 05:19

Question

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

mikhalyukmahem · Answer

var  n, count, a: integer;begin  repeat    readln(a);    if(a = -100) and (a = -999) then inc(count);  until(a = 0);  writeln( Было введено отрицательных трехзначных чисел: , count);end....