С, ! написать блок-схему и программу для № 115: дано натуральное число n. определить количество нулей среди всех цифр числа n. паскаль.

ответ: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