Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

Question

Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

Comments

в паскале

Answer 1

Var
i,x:integer;

begin
i:=0;
while x<>0 do
begin
 readln(x);
 i:=i+1;
end;
writeln(i);
end.