Galite padeti namu darbuose???

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... :)

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.

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.

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 }

Turiu omeny su paskaliu.... ir kad ismestu kiek tu bilietu isviso yra.... cia kiek manau su ciklu for reikia varyt o veliau dar itraukt salygini sakyni ar as klystu???? :mellow: :) :)

Kad ismestu kiek is viso bilietu yra? Tai pridek sita:

c:=c+1;

Po pirmoji begin priskirk c:=0; kitaip gausi bloga atsakyma.

Bafas: parasiau Tau su for ciklu.

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 }

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

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.

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.

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

Nieko nesuprantu taigi parasiau as ta begin :)

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...

Laaabai dekui jei kada vel ko prireiks tai kreipsiuos i jus nes mano informos mokytoja tai kaip Einsteinas pikta nei ko paklaust tik paciam tipo viska suprast reikia :) :) DEKUI

Nera uz ka, Lietuvai truksta apsisvietusiu zmoniu :)

Na as paskalio nesimokau, bet man ydomu ar 'begin' ir 'end' atitinkamai php kalboje yra '{' ir '}'