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

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.