Цитата:
|
Сообщение от Юрис 2009
Дано натуральное число N (N>9). Определить количество нулей, идущих подряд в младших разрядах данного числа. Пример: N = 1020000. Количество нулей равно четырем.
|
Зделал для Delphi если нужно для паскаля надеюсь сам зделаеш
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
C:=0;
Q:=0; // Обнуляем значения для многоразового ввода
edit1.Clear;
A:=length(edit1.Text); // Вычесляем сколько символов содержит edit
for B := a downto 0 do begin //считаем в обратном порядке
if (edit1.Text[b]='0') and (C<>1) then begin Q:=q+1;
end
else C:=1; // чтобы не выполнялось условия и счетчик не считал дальше
end;
label1.Caption:=inttostr(q); // вывожу значение счетчика в label
Admin: Пользуемся тегами!