Turbo pascalban segiteni tudtok?
Figyelt kérdés
Beolvasunk egy x longint egesz szamot.Irassuk ki a szamjegyeket, szamjegyek szorzata (asszem azzal kell h P:=P*(x mod 10)), mennyi db 5ossel vegzodo szam van. elore is koszi2012. jún. 10. 10:48
1/2 anonim 
válasza:
válasza:P:=1;
otos:=0;
while x>0 do begin
P:=P*(x mod 10);
if (x mod 10)=5 then otos:=otos+1;
x:=x div 10;
end;
Ez a program fő része, a beolv-kiír gondolom menni fog.
2/2 A kérdező kommentje:
koszi szepen...sokat segitettel ;) :*
2012. jún. 10. 12:45
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!