Будьте добры, помогите решить.

1. Написать программу, которая считает количество 0 в заданном шестизначном числе.

Пример работы программы:

Введите число: 205408
Кол-во нулей в числе: 2

1

Ответы и объяснения

  • Участник Знаний
2014-03-22T08:39:05+00:00
Строками. Pascal
var a,k,m:integer;i:string;
begin
k:=0;
read (a);
if (a div 1000000<1) and (a div 100000>1)then
begin
str(a,i);
for m:=1 to length(i) do
begin
if (i[m]='0') then k:=k+1;
end;
end
else
begin
writeln ('Неверный ввод');halt;end;
writeln (k);
end.