Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа

@Maz220297 · Регистрация: 04.02.2013

Author24 — интернет-сервис помощи студентам

Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа.

@Midian · 15.04.2013, 21:55

Как вариант, сделал таким образом, если пойдет то забирай:

Pascal

uses crt;
var
n: integer;
i,kol: byte;
k: char;
str: string;
begin
write('Введите число n: ');
readln(n);
write('Введите число k: ');
readln(k);
str:=IntToStr(n);
kol:=0;
for i:=1 to length(str) do
if (str[i] = k) then
begin
inc(kol);
end;
writeln('Число повторений = ',kol);
end.

@Maz220297 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 40
		1
	Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа 15.04.2013, 21:16. Показов 2343. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа. 0

	15.04.2013, 21:55

Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа

Решение