Анализ чисел

@AJIuHoK · Регистрация: 09.01.2011

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

8. Для числа определить какая из цифр встречается чаще: «0» или «9». Если таковых цифр нет, то вывести соответствующее сообщение.

@Puporev · 24.09.2011, 09:06

Pascal

uses crt;
var n:integer;
    k0,k9:byte;
begin
write('n=');
read(n);
k0:=0;k9:=0;
while n>0 do
 begin
  if n mod 10=0 then inc(k0)
  else if n mod 10=9 then inc(k9);
  n:=n div 10;
 end;
if(k0=0)and(k9=0) then write('Цифр 0 и 9 в числе нет')
else if k0>k9 then write('Цифра 0 чаще')
else if k9>k0 then write('Цифра 9 чаще')
else if k0=k9 then write('Цифр 0 и 9 поровну')
end.

@AJIuHoK 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 25
		1
	Анализ чисел 22.09.2011, 19:17. Показов 1087. Ответов 1 Метки нет (Все метки) 8. Для числа определить какая из цифр встречается чаще: «0» или «9». Если таковых цифр нет, то вывести соответствующее сообщение. 0

	24.09.2011, 09:06

Анализ чисел

Решение