Дано натуральное число.Верно ли что цифра А встречается в нем реже чем цифра В?

@злодейка93 · Регистрация: 24.04.2011

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

кто нибудь знает как такое решить????

@Potelkin · 22.03.2013, 18:40

for i:=1 to n do
if arr[i]>0 then
begin
inc(pl);
b[pl]:=arr[i];
end
else
begin
inc(oth);
c[oth]:=arr[i];
end;

Новичок · 22.03.2013, 21:59

Pascal

uses Crt;
var n:longint;
a,b,ak,bk:Integer;
begin
ClrScr;
Write('Введите натуральное число,n=');
Readln(n);
Writeln('Введите две цифры:');
Write('A=');
Readln(a);
Write('B=');
Readln(b);
while n<>0 do 
begin
if a=n mod 10 then inc(ak);
if b=n mod 10 then inc(bk);
n:=n div 10;
end;
if ak<bk then Write('Да цифра А встречается реже чем цифра В.') else
Write('Нет,цифра А встречается не реже чем цифра В.');
Readln;
end.

Добавлено через 1 минуту

27.04.2011, 22:01

Ой!Potelkin,ну молодец хоть бы на дату темы глянул.

@злодейка93 1 / 1 / 1 Регистрация: 24.04.2011 Сообщений: 13
		1
	Дано натуральное число.Верно ли что цифра А встречается в нем реже чем цифра В? 28.04.2011, 00:01. Показов 7729. Ответов 2 Метки нет (Все метки) кто нибудь знает как такое решить???? 0

@Potelkin 0 / 0 / 1 Регистрация: 22.03.2013 Сообщений: 13
	22.03.2013, 18:40	2
	for i:=1 to n do if arr[i]>0 then begin inc(pl); b[pl]:=arr[i]; end else begin inc(oth); c[oth]:=arr[i]; end; 0

	22.03.2013, 21:59

Опции темы

Дано натуральное число.Верно ли что цифра А встречается в нем реже чем цифра В?

Решение