Pereiti prie turinio

Galite padeti namu darbuose???


Rekomenduojami pranešimai

V aper informa gavau toki uzdavini kuri beveik issprendziu bet nzn ko truksta gal galit padet??? :) va...

Troleibuso bilieteliai zymimi nuo 000000 iki 999999. laimingi bilieteliai yra tie kuriu pirmu triju skaitmenu suma lygi paskutiniu 3 skaitmenu sumai. Parasykite sakiniu seka kuri apskaiciuotu laimingus bilietelius... :) tikiuosi gal kas parasysit programa lb butu dekui... zinau kad cia lengva tik kazkaip neveikia galva... :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

V aper informa gavau toki uzdavini kuri beveik issprendziu bet nzn ko truksta gal galit padet??? :) va...

Troleibuso bilieteliai zymimi nuo 000000 iki 999999. laimingi bilieteliai yra tie kuriu pirmu triju skaitmenu suma lygi paskutiniu 3 skaitmenu sumai. Parasykite sakiniu seka kuri apskaiciuotu laimingus bilietelius... :) tikiuosi gal kas parasysit programa lb butu dekui... zinau kad cia lengva tik kazkaip neveikia galva... :)

Turi omeny ivedus skaiciu tau parasytu ar jis laimingas? Dar galejai pasakyti su kokia programa reikia tau sito.

Redagavo Elendilas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Paskalis manau, ir man panasia reikejo..

program bilietai;
var x,a,b:longint;
begin
readln(x);
a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10;
b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10;

if a=b  then writeln('Bilietas laimingas')
	else writeln('Biltietas nelaimingas');
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Paskalis manau, ir man panasia reikejo..

program bilietai;
var x,a,b:longint;
begin
readln(x);
a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10;
b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10;

if a=b  then writeln('Bilietas laimingas')
	else writeln('Biltietas nelaimingas');
end.

 

Manau, kad ne taip uzdavini supratai. Reikejo isvesti i ekrana visus laimingus bilietus, o ne suzinoti, ar bilietas laimingas, ar ne.

 

Jei yra taip, kaip sakiau, tai reikia panaudoti cikla

 

for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 }

begin

a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10; { Apskaiciuojame pirmu 3 skaitmenu suma }

b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10; { Apskaiciuojame paskutiniu 3 skaitmenu suma }

if a=b then writeln(x); { Jei bilietas laimingas, isvedame jo numeri i ekrana }

end;

end. { Pabaiga }

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal kazkas tokio:

 

program bilietai;
var x,a,b,s:longint;
for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 }
begin
s:=0;
a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10; 
b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10;
if a=b then s+1
 else s+0; 
writeln(s); 
end;
end. { Pabaiga }

Redagavo Elendilas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal kazkas tokio:

 

program bilietai;
var x,a,b,s:longint;
for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 }
begin
s:=0;
a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10; 
b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10;
if a=b then s+1
 else s+0; 
writeln(s); 
end;
end. { Pabaiga }

 

Deja, ne.

 

for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 } turi buti po begin ir po sitos eilutes turi buti dar vienas begin... Ir ka tu darai per pamokas, jei nemoki net strukturos :) :) :)

 

Turi buti viskas taip:

 

program bilietai;

var x,a,b,s:longint;

begin

s:=0;

for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 }

begin

a:= x div 100000 + x div 10000 mod 10 + x div 1000 mod 10;

b:= x div 100 mod 10 + x div 10 mod 10 + x mod 10;

if a=b then s:=s+1

else s:=s+0;

end;

writeln(s);

end. { Pabaiga }

 

Istaisiau klaidas, va taip turi atrodyt :P

Redagavo lawry
Nuoroda į pranešimą
Dalintis kituose puslapiuose

o taip blogaj? :)

 

program Bilietai;

var suma, i, a, b : longint;

begin

suma := 0;

for i := 000000 to 999999 do

begin

a:= i div 100000 + i mod 100000 div 10000 + i mod 10000 div 1000;

b:= i mod 1000 div 100 + i mod 100 div 10 + i mod 10;

if a = b then suma := suma + 1;

writeln(suma);

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Deja, ne.

 

for x:=000000 to 999999 do { Tikrinam bilietus nuo 000000 iki 999999 } turi buti po begin ir po sitos eilutes turi buti dar vienas begin... Ir ka tu darai per pamokas, jei nemoki net strukturos :) :) :)

Nuo informos esu atleistas, nu mokytoja man 10 isveda ir vsio. Be to kitas kalbas naudoju.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

o taip blogaj? :)

 

program Bilietai;

var suma, i, a, b : longint;

begin

suma := 0;

for i := 000000 to 999999 do

begin

a:= i div 100000 + i mod 100000 div 10000 + i mod 10000 div 1000;

b:= i mod 1000 div 100 + i mod 100 div 10 + i mod 10;

if a = b then suma := suma + 1;

writeln(suma);

end.

 

Blogai, nes pries writeln(suma); nera end; kuris parodytu, jog uzbaigia cikla for, kaip tu parasei, tai tau programa parodys: 1,2,3,4,5...

Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...