Question

Помогите с заданием, пожалуйста! Написать блок-схему и программу для задачи № 115: Дано натуральное число N. Определить количество нулей среди всех цифр числа N. Паскаль.

Answer 1

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