Question

Wykonaj program w języku Pascal, który wczytuje ciąg wpisanych przez użytkownika liczb (np. 1010513605100682013090) do tablicy, a następnie wyznacza ilość wystąpień zer.

Answer 1

uses
    crt;
var
   row:string;

procedure addstring;
begin
     writeln('Podaj ciag: ');
     readln(row);
end;

{procedure rowsreading;
begin
     writeln(row);
end;     }

procedure countifzero;
var
   i,q:integer;
begin
q:=0;
      for i:=1 to length(row) do
          if row[i]='0' then q:=q+1;
writeln(q);
end;

begin
clrscr;
       addstring;
      { rowsreading;   }
       countifzero;
readln;
end.