Дано натуральное число. Определить, сколько раз в нем встречается первая цифра.
№ 1 | Автор: kas |
2012-03-22, 09:57
|
Репутация: [ + 0 ]
|
|
|
|
var
i,n,pervoe,kolichestvo,chislo:integer;
begin
kolichestvo:=0;
read(n);
read(pervoe);
for i:=2 to n do begin
read(chislo);
if chislo=pervoe then kolichestvo:=kolichestvo+1;end;
writeln(kolichestvo);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
