Question

На вход даются числа.Признак ввода число 0.Найдите количество чисел,которые меньше 1000

Answer 1

var a,k:integer;

begin

repeat

write ('Введите число: ');

readln (a);

if (a<1000) and (a<>0) then k:=k+1

until a=0;

writeln ('Количество чисел, меньше 1000, равно: ',k)

end.

Answer 2

Для решения этой задачи можно использовать простой цикл, который будет считывать числа до тех пор, пока не встретится число 0, и подсчитывать количество чисел, которые меньше 1000. Вот пример кода на языке Python:

pythonCopy code
def count_numbers_less_than_1000():
    count = 0
    while True:
        num = int(input("Введите число (или 0 для завершения): "))
        if num == 0:
            break
        if num < 1000:
            count += 1
    return count

result = count_numbers_less_than_1000()
print(f"Количество чисел, меньше 1000: {result}")

Когда запустите этот код, программа будет запрашивать ввод чисел до тех пор, пока не будет введено число 0. После этого она выведет количество чисел, которые были меньше 1000.