Preskoči na sadržaj
Ista raja. Nova runda.
GAMERZ.ba — REBORN
Diskusija

Pascal Program - POMOĆ

97 pregleda · 3 odgovora · otvorena 09.03.2011. u 21:07

Dobio sam zadatak iz škole (II srednje) i moram u Pascalu napisati ovaj program:

"Napisati program koji ispituje brojeve od a do b, ali samo one koji su djeljivi sa 5. Zatim uvesti promjenjivu (varijablu) Br, koja će izbrojati koliko takvih brojeva ima."

Pomoć treba mi za sutra ujutro pls.
evo nadam se da ce ti bar malo pomoci jer sam zaboravio pascal skroz :D

PROGRAM gamers.ba;
USES WinCrt;
VAR
i,a,b,br:integer;
BEGIN
writeln ('prebroj djelive sa 5 u intervalu a do b');
write ('a b ');
readln(a,b);
br:=0;
FOR i := a TO b DO
IF i MOD 5 = 0 THEN
br:=br+1;
END;
writeln('djeljivih sa 5 ', br);
readln;
END.


Ako nije nikakav odredjeni skup zadan onda ce ti to i prebrojati te brojeve ;)
StormBL je napisao/la:
evo nadam se da ce ti bar malo pomoci jer sam zaboravio pascal skroz :D

PROGRAM gamers.ba;
USES WinCrt;
VAR
i,a,b,br:integer;
BEGIN
writeln ('prebroj djelive sa 5 u intervalu a do b');
write ('a b ');
readln(a,b);
br:=0;
FOR i := a TO b DO
IF i MOD 5 = 0 THEN
br:=br+1;
END;
writeln('djeljivih sa 5 ', br);
readln;
END.


Ako nije nikakav odredjeni skup zadan onda ce ti to i prebrojati te brojeve ;)
Brate pokrenuo sam radi, valjda je tacno hvala ti puno!! :D

Prijavi se da bi odgovorio/la na ovu temu.