Подпрограмма определяющая вероятность выпадения счастливого билетика.

[Doublefaced]

Написать подпрограмму, которая определяет вероятность выпадения «счастливого билетика» в заданном диапазоне.

Помогите с программой. Я даже не понимаю, что от меня требутсяпаскаль

[Utkin]

1. Определить по какому принципу комбинация на билете считается счастливой (в Гугле).
2. Посчитать вероятность выпадения комбинации счастливого билетика (а на заданном диапазоне их наверняка много).

[Levsha100]

Помогу:

н=0;
Цикл от 0 до Макс
  если сумма левых 3 элементов == сумма правых 3 элементов то
     н=н+1;

[TAVulator]

элементарная задача же!
если брать, что счастливый билет - это билет, в котором сумма первых трех цифр равна сумме последних трех цифр.Например:121202.
то вот решение на эту задачу:

var
 i,a,b,n: longint;
begin
 a:=111111;
 b:=111222;
 n:=0;
 For i:=a to b do
  If ((i div 100000)+
     ((i div 10000) mod 10)+
     ((i div 1000)mod 10))=
    (((i div 100)mod 10)+
     ((i div 10)mod 10)+
      (i mod 10))
  then inc(n);
 writeln(n);
end.

a и b - диапазон
n - количество счастливых билетов.

[Doublefaced]

program Project1;
 
{$APPTYPE CONSOLE}
 
const
  z = 6;
type
  ar2 = array[1..z] of integer;
var
  ch : real;
  n, m : longint;
 
procedure chance_succ(n, m : longint; var result : real);
var
  b : ar2;
  i, tmp : longint;
  count : integer;
  j : byte;
begin
  count := 0;
  for i:=n to m do
  begin
    tmp := i;
    for j:=1 to z do
    begin
      b[j] := tmp mod 10;
      tmp := tmp div 10;
    end;
  if (b[1]+b[2]+b[3]) = (b[4]+b[5]+b[6]) then inc(count);
  end;
 
  result := (count*100)/(m-n);
 
end;
 
begin
write('Vvedite promeshutok ot n до m: ');
read(n,m);
chance_succ(n,m,ch);
 
write('Veroyatnost: ',ch:4:2,'%');
readln;
end.

Примерно так. но почему то всегда выводит 0%

[TAVulator]

если тебе надо с процентами, то вот:

var
 i,a,b,n: longint;
begin
 a:=111111;
 b:=111222;
 n:=0;
 For i:=a to b do
  If ((i div 100000)+
     ((i div 10000)mod 10)+
     ((i div 1000)mod 10))=
    (((i div 100)mod 10)+
     ((i div 10)mod 10)+
      (i       mod 10))
  then inc(n);
 writeln(((n*100) div (b-a)),'%');
 readln;
end.

[Doublefaced]

То есть 111111 222333
Вероятность 5.22% это верно?

[TAVulator]

5808 из 111222 это 5.22%
почему бы и нет?

[Doublefaced]

Спасибо. Просто хотел удостовериться, сам задачу не очень понял.

[TAVulator]

хы! запустил программу со значениями от 000001 до 999999 и узнал сколько всего может быть счастливых билетов:
55251 из 999998 5.53%
раньше не знал :-)