numar aparitii rezultate loto

Salut, an si eu o mica problema daca ma poate ajuta cineva.Problema e urmatoarea: am un fisier cu numerele extrase la loto.As dori un program ,daca se poate in pascal, care face urmatoarele:se introduc de la tastatura 6 numere si programul trebuie sa caute de cite ori au iesit 3 numere ,4 numere,5 numere,6 numere,
Va multumesc.

De ce Pascal?
Cu putina chinuiala, cred ca merge si in Excel.

CARTOFPAI2000, on 16 iulie 2023 - 15:40, said:

Extrase pe (in) ce perioada? Ce format e fisierul - text, tabel, baza de date? La ce ti-ar folosi un asemenea program?

Ce ai facut pana acum?
Poti sa incepi sortand numerele de intrare si numerele de pe fiecare rand din fisier.

CARTOFPAI2000, on 16 iulie 2023 - 15:40, said:

facilitatea de care vorbesti exista deja la LR
daca doresti, te pot ajuta sa o folosesti

https://www.loto.ro/?p=3874

daca jucai doar 1,2,3,4,5,6 de la inceputul jocului, ai fi prins de 24 de ori cate 3 numere din cele 6

si ai fi castigat de fiecare data cate 30 lei

jucatul la loterie este un impozit suplimentar aplicat de stat celor care cred ca au noroc.

(i) ideea e ca o combinatie de 6 numere are exact aceeasi sansa de aparitie ca oricare alta

(ii) rezultatele ce au aparut in trecut nu se pot folosi pentru a ghici numerele castigatoare din viitor

astea 2 realitati de mai sus sunt greu de acceptat, de unde rezulta si necesitatea impozitului de care am zis ...

Edited by Ru-Warrior, 17 July 2023 - 11:49.

ce am facut:

	
uses crt;			  

var I,J,a,b,c,d,e,f,g,h,x,y,z,w,t,m,n,o : integer;
ar:array[1..6,1..1000] of integer;
f1:text;
begin
clrscr;
write('a=');
   read(a);
write('b=');
   read(b);
write('c=');
   read©;
write('d=');
   read(d);
write('e=');
   read(e);
write('f=');
   read(f);
   assign(f1,'c:\list.txt');
   reset(f1);
	g:=0;
  
	x:=0;
	y:=0;
	z:=0;
	m:=0;
	n:=0;
for I:=1 to 6 do
	for j:=1 to 1000 do
		  begin

		  if ar[i,j]=a then h:=h+1
			   else if ar[i,j]=b then h:=h+1
			   else if ar[i,j]=c then h:=h+1
			   else if ar[i,j]=d then h:=h+1	  (citeste si compara numerele)
			   else if ar[i,j]=e then h:=h+1
			   else if ar[i,j]=f then h:=h+1
			   else  g:=0;
				  if if h=1 then m:=m+1 else
				  if h=2 then n:=n+1 else
				 if h=3 then x:=x+1 else
				  if h=4 then x:=x+1 else
				  if h=5 then y:=y+1 else	( contorizeaza )
				  if h=6 then z:=z+1 else
					writeln('0 numere=',g);
				  
			 end;
			  close(f1);
			   writeln('3 numere castigatoare=',w);
			   writeln('4 numere castigatoare=',x);   (afiseaza)
			   writeln('5 numere castigatoare=',y);
			   writeln('6 numere castigatoare=',z);
write('t=');
read(t);   (asteapta  pt a vedea rezultatele)


end.

fisierul e text  de genul:

17 25 30 37 38 47
7 17 2 42 6 30
20 3 38 45 44 17
30 5 4 6 42 36
14 49 35 19 5 7
28 15 22 38 42 41
4 35 2 17 18 16
48 37 4 41 44 34
7 45 29 25 13 6
22 14 34 15 8 43
17 19 36 12 14 47
20 43 4 35 48 6
36 35 15 8 37 17
33 7 34 43 12 41
15 25 12 32 49 46.


imi da ruzultat eronat probabil nu trebuie declarat text.
ma poate corecta cineva?
merci.

Edited by MarianG, 18 July 2023 - 21:41.
code tags