Да не знај некој шо му е маката?

This message was edited 8 times. Last update was at 07/03/2011 08:42:56

Да не знај некој шо му е маката? Методот на решавање ми е лјуфнат ама сепак интересно ми беше

Мој Број
http://mendo.mk/Task.do?id=3
__________________________________________________________________

program moj_broj;

var stefan,ana,eden,dva,tri,cetiri,pet,ses:integer;

procedure prva;

var e,a,b,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a);
        readln(b);
	eden:=a;
	dva:=b;
	e:=a;
	broj1:=a;
	broj2:=a;
	broj3:=a;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (b mod rezultat
 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

procedure vtora;

var e,a1,b1,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a1,b1);
	tri:=a1;
	cetiri:=b1;
	e:=a1;
	broj1:=a1;
	broj2:=a1;
	broj3:=a1;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (rezultat mod b1 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

procedure treta;

var e,a2,b2,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a2,b2);
	pet:=a2;
	ses:=b2;
	e:=a2;
	broj1:=a2;
	broj2:=a2;
	broj3:=a2;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (rezultat mod b2 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

begin

stefan:=0;
	ana:=0;
	prva;
	vtora;
	treta;
	readln(stefan,ana);
	if (stefan > ana) then
		begin
			writeln(stefan,ana,' ','Stefan');
		end;

if (ana > stefan) then
		begin
			writeln(stefan,ana,' ','Ana');
		end;

if (stefan = ana) then
		begin
			 if ((eden > dva) and (eden > tri) and (eden > cetiri) and (eden > pet) and (eden > ses)) then writeln(stefan,ana,' ','Stefan');
		     if ((dva > eden) and (dva > tri) and (dva > cetiri) and (dva > pet) and (dva > ses)) then writeln(stefan,ana,' ','Ana');
			 if ((tri > eden) and (tri > dva) and (tri > cetiri) and (tri > pet) and (tri > ses)) then writeln(stefan,ana,' ','Stefan');
			 if ((cetiri > eden) and (cetiri > dva) and (cetiri > tri) and (cetiri > pet) and (cetiri > ses)) then writeln(stefan,ana,' ','Ana');
			 if ((pet > eden) and (pet > dva) and (pet > tri) and (pet > cetiri) and (pet > ses)) then writeln(stefan,ana,' ','Stefan');
			 if ((ses > eden ) and (ses > dva) and (ses > tri) and (ses > cetiri) and (ses > pet)) then writeln(stefan,ana,' ','Ana');
		end;

end.

(rezultat mod e = 0) tuka ti e greskata treba obratno (e mod rezultat)
ako pak ne raboti pisi...
koristis mnogu varijable od koj nema potreba i 2 proceduri...vo delfi 1 procedura moze da vraka do 3 vrednosti za pascal neznam tocno ama 95% e isto taka da moze 2te proceduri da gi napravis u edna taka sto ke ti vrakat 2 vrednosti...

eve go moeto resenie vo c++

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
    int x[1000],y[1000],ana=0,stefan=0,pom,i,max1,max2;
    for(i=1;i<=3;i++)
    {
                     cin>>x[i]>>y[i];
                     pom=(x[i]/100)+((x[i]/10)%10)+(x[i]%10);
                     if (x[i]%pom==0)
                     {
                                      stefan=stefan+2;
                                      ana=ana-1;
                     }
                     pom=(y[i]/100)+((y[i]/10)%10)+(y[i]%10);
                     if ((y[i]%pom)==0)
                     {
                                      ana=ana+2;
                                      stefan=stefan-1;
                     }
    }
    max1=x[1];
    max2=y[1];
    for(i=2;i<=3;i++)
    {
                     if (max1<x[i])
                                   max1=x[i];
                     if(max2<y[i])
                                   max2=y[i];
    } 
                        
    cout<<stefan<<" "<<ana<<endl;
    if (stefan>ana)
       cout<<"Stefan";
    if (stefan==ana)
       if(max1>max2)
                    cout<<"Stefan";
       else
                    cout<<"Ana";
    if (ana>stefan)
        cout<<"Ana";  
    cin>>i;                            
    return EXIT_SUCCESS;
}

Еве и мој..

Ete uste eden oj problem

Роденден
http://mendo.mk/Task.do?id=41
_____________________________

program rodenden;

var i,j,pom:integer;
    n:string[5];

begin

readln(n);
	pom:=1;
	j:=0;
	
for i:=pom to length(n) do
    begin
      if (n[i]='0') or (n[i]='00') or (n[i]='000') or (n[i]='0000') or (n[i]='00000') 
	   then begin j:=j+1; end;
	  if (n[i]='0') then begin  pom:=pom+1; end;
	  if (n[i]='00')  then begin  pom:=pom+2; end;
	  if (n[i]='000')  then begin  pom:=pom+3; end;
	  if (n[i]='0000') then begin  pom:=pom+4; end;
	  if (n[i]='00000') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='1') or (n[i]='11') or (n[i]='111') or (n[i]='1111') or (n[i]='11111') 
	   then begin j:=j+1; end;
	  if (n[i]='1') then begin  pom:=pom+1; end;
	  if (n[i]='11')  then begin  pom:=pom+2; end;
	  if (n[i]='111')  then begin  pom:=pom+3; end;
	  if (n[i]='1111') then begin  pom:=pom+4; end;
	  if (n[i]='11111') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='2') or (n[i]='22') or (n[i]='222') or (n[i]='2222') or (n[i]='22222') 
	   then begin j:=j+1; end; 
	  if (n[i]='2') then begin  pom:=pom+1; end;
	  if (n[i]='22')  then begin  pom:=pom+2; end;
	  if (n[i]='222')  then begin  pom:=pom+3; end;
	  if (n[i]='2222') then begin  pom:=pom+4; end;
	  if (n[i]='22222') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='3') or (n[i]='33') or (n[i]='333') or (n[i]='3333') or (n[i]='33333') 
	   then begin j:=j+1; end;
	  if (n[i]='3') then begin  pom:=pom+1; end;
	  if (n[i]='33')  then begin  pom:=pom+2; end;
	  if (n[i]='333')  then begin  pom:=pom+3; end;
	  if (n[i]='3333') then begin  pom:=pom+4; end;
	  if (n[i]='33333') then begin pom:=pom+5; end;
	 end;

for i:=pom to length(n) do
    begin
      if (n[i]='4') or (n[i]='44') or (n[i]='444') or (n[i]='4444') or (n[i]='44444') 
	   then begin j:=j+1; end;
	  if (n[i]='4') then begin  pom:=pom+1; end;
	  if (n[i]='44')  then begin  pom:=pom+2; end;
	  if (n[i]='444')  then begin  pom:=pom+3; end;
	  if (n[i]='4444') then begin  pom:=pom+4; end;
	  if (n[i]='44444') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='5') or (n[i]='55') or (n[i]='555') or (n[i]='5555') or (n[i]='55555') 
	   then begin j:=j+1; end;
	  if (n[i]='5') then begin  pom:=pom+1; end;
	  if (n[i]='55')  then begin  pom:=pom+2; end;
	  if (n[i]='555')  then begin  pom:=pom+3; end;
	  if (n[i]='5555') then begin  pom:=pom+4; end;
	  if (n[i]='55555') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='7') or (n[i]='77') or (n[i]='777') or (n[i]='7777') or (n[i]='77777') 
	   then begin j:=j+1; end;
	  if (n[i]='7') then begin  pom:=pom+1; end;
	  if (n[i]='77')  then begin  pom:=pom+2; end;
	  if (n[i]='777')  then begin  pom:=pom+3; end;
	  if (n[i]='7777') then begin  pom:=pom+4; end;
	  if (n[i]='77777') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='8') or (n[i]='88') or (n[i]='888') or (n[i]='8888') or (n[i]='88888') 
	   then begin j:=j+1; end;
	  if (n[i]='8') then begin  pom:=pom+1; end;
	  if (n[i]='88')  then begin  pom:=pom+2; end;
	  if (n[i]='888')  then begin  pom:=pom+3; end;
	  if (n[i]='8888') then begin  pom:=pom+4; end;
	  if (n[i]='88888') then begin pom:=pom+5; end;
	 end;

for i:=pom to length(n) do
    begin
      if (n[i]='6') or (n[i]='66') or (n[i]='666') or (n[i]='6666') or (n[i]='66666') or (n[i]='9') or (n[i]='99') or (n[i]='999') or (n[i]='9999') or (n[i]='99999') 
	   then begin j:=j+1; end;
	  if (n[i]='6') or (n[i]='9') then begin  pom:=pom+1; end;
	  if (n[i]='66') or (n[i]='99') then begin  pom:=pom+2; end;
	  if (n[i]='666') or (n[i]='999')  then begin  pom:=pom+3; end;
	  if (n[i]='6666') or (n[i]='9999') then begin  pom:=pom+4; end;
	  if (n[i]='66666') or (n[i]='99999') then begin pom:=pom+5; end;
	 end;

writeln(j);

end.

na 16 test primeri pagja. xD

Што си правел ти о.О

pa kje padni i na povekje ako mu davas povekje karakteri da ti gi racuna kako eden

Чекај ти секогаш пишуваш вакви кодови??? Ако е така престани. иначе еве ти мое решение. Не е најсјано. може да се оптимизира уште.

Sakav so string da ja resham a znaef deka mozi i so mod i div da ja reshavam sekogash idiotskiot nachin go biram xD

MarioTalevski wrote:Sakav so string da ja resham a znaef deka mozi i so mod i div da ja reshavam sekogash idiotskiot nachin go biram xD

Смени го тоа заедно со начинот на пишување код, вака не бива

Не му давајте готови кодови, нека си ја реши самиот дајтему објаснение

За роденден еден тип : Доколку имаме повеќе 6ки или 9ки направиги обратно, пример 6663 како што е на тест примерот направиго 6963.направи променлива која ќе брои колку од цифрите се 6ки и 9ки, доколку има 2x6ки или 2х9ки по ред направиги 69 или 96

После проверувај само колку пати има од 0-9 цифри