Определить, сколько в записи числа нулей

@sani9989 · Регистрация: 01.01.2013

помогите пожалуйста решить вделфи задачу
Определить, сколько в записи числа нулей

@HanDi · 01.01.2013, 23:05

И в чем проблема?

@sani9989 · 01.01.2013, 23:07 **[ТС]**

немогу решить вроде простая задача

@HanDi · 01.01.2013, 23:18

Ну ну..

Вот самое простое решение

Delphi

var s: string;
    k, i: integer;
begin
s:=edit1.Text;
k:=0;
 
for i:=1 to length(s) do
  if s[i]='0' then inc(k);
 
showmessage(IntToStr(k));
end;

@sani9989 0 / 0 / 0 Регистрация: 01.01.2013 Сообщений: 23
		1
	Определить, сколько в записи числа нулей 01.01.2013, 22:57. Показов 720. Ответов 3 Метки нет (Все метки) помогите пожалуйста решить вделфи задачу Определить, сколько в записи числа нулей 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	01.01.2013, 23:05	2
	И в чем проблема? 0

@sani9989 0 / 0 / 0 Регистрация: 01.01.2013 Сообщений: 23
	01.01.2013, 23:07 [ТС]	3
	немогу решить вроде простая задача 0

	01.01.2013, 23:18