Segíteni nekem vki programozásban?
Pascalban kéne kiírni h ha beadok 1 számot akkor az osztható-e 6-al?Már több féle képpen próbáltam és nem megy.
program asd;
uses crt ;
var
a,b : integer ;
begin
clrscr ;
write('Kérem az "A"-t: ') ;
readln(a) ;
write('Kérem a "B"-t: ') ;
readln(b) ;
if b = 0 then write('Nullával való osztásnak nincs értelme!')
else if a mod b = 0 then write('Osztója')
else write('Nem osztója');
readln ;
end.
így megy de be kell adnom a b-t (6-ot)h megoldja.
Nem értem a problémát.
Írj b helyett 6-ot a programban és ne kérd be!
write('Kérem a "B"-t: ') ;
readln(b) ;
if b = 0 then write('Nullával való osztásnak nincs értelme!')
Ezt a három sort kitörlöd és a mod b helyett a mod 6-ot írsz?
Vagy a három sor helyére b=6; -ot?
program oszthatosag;
uses crt ;
var
szam,maradek : byte ;
begin
clrscr ;
write('Kérem a számot: ') ;
readln(szam) ;
maradek:=szam MOD 6;
IF maradek = 0 then writeln('Ez a szám osztható 6-al.')
else writeln('Ez a szám nem osztható 6-al.');
readln ;
end.
Hol tanulsz ismerős ez a feladat:)
program asd;
uses crt ;
var
a : integer ;
begin
clrscr ;
write('Kérem az "A"-t: ') ;
readln(a) ;
if a mod 6 = 0 then write('Osztoja')
else write('Nem osztoja');
readln;
end.
Elvileg így okés. Milyen fordítót használsz? Csak mert a Turbó-, Free- és BorlandPascal nem kedveli az ékezetes betűket és máshogy írja ki őket. Valamint ne lepődj meg ha teljesen logikus dolgokat nem szeret :) Többször jártam úgy hogy teljesen jó volt amit odaírtam de a program nem szerette.
Szerintem használj Borland Pascalt. Nagyon jó kis progi. Bár ha emelt infóra akarsz menni Pascallal akkor a Free Pascal-t kell megszoknod mert ott csak azt használhatod.
Itt egy letöltési link Borland Pascal-hoz.
Szólj ha nem jó.
sajna nem jó a link.egyébként közép szinten szeretnék belőle érettségizni.
(kössz amúgy nyomtam mind 2-öknek 1 zöldkezet ha már a köszönésen kévül mást nem tudok tenni XD)
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!