Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной

@ирина1994 · Регистрация: 25.05.2012

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

Дано n-значное целое число типа longint. нужно подсчитать количество цифр в числе, значения которых больше заданной.

valeriikozlov · 26.05.2012, 01:18

Pascal

var
n,m,col:longint;
 
begin
write('N= '); read(n);
write('Цифра: '); read(m);
while(n>0) do begin
if n mod 10 >m then inc(col);
n:=n div 10;
end;
writeln('Результат: ', col);
end.

@ирина1994 2 / 2 / 1 Регистрация: 25.05.2012 Сообщений: 12
		1
	Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной 25.05.2012, 19:37. Показов 2695. Ответов 1 Метки нет (Все метки) Дано n-значное целое число типа longint. нужно подсчитать количество цифр в числе, значения которых больше заданной. 0

	26.05.2012, 01:18

Опции темы

Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной

Решение