ответ:0
var a: string;
k,i:byte;
begin
write('введите число: '); readln(a);
k:=0;
for i:=1 to length(a) do begin
if a[i] = '0' then begin
k:= k + 1;
end; end;
write('количество нулей: ',k);
end.
0
ответ:0
var a: string;
k,i:byte;
begin
write('введите число: '); readln(a);
k:=0;
for i:=1 to length(a) do begin
if a[i] = '0' then begin
k:= k + 1;
end; end;
write('количество нулей: ',k);
end.
0