zadatak u Pascal-u
 

Tribao bi mi netko riješit sljedeće zadatke pomoću FOR petlje

1.Zbroji sve recipročne vrijednosti prvih 30 prirodnih brojeva, a rezulatat napisati s tri decimale.

2.Koliko ima brojeva od 100-500 koji su djeljivi sa 5 i 6

Možda su lagani ali ove petlje stvarno ne kužim jer nisam odavno bia u školi, ako ko može pomoć

program drugi;
var n,z:integer;
begin
for n:=100 to 500 do begin
if (n mod 5=0) and (n mod 6=0) then inc(z);end;
writeln(z);readln;end.
tak nesto drugi. moram se stusirati pa nemrem provjeriti niti napisati prvi jer mi se jaja smrzavaju. malo kasnije budem. javi jel radi.

program prvi;
var i:integer;
zbroj:real;
begin
zbroj:=0;
for i:=1 to 30 do
zbroj:=zbroj+(1/i);
write('zbroj recipročnih vrijednosti je ',zbroj:3:3);
readln;
end.

evo prvi :)

Ok hvala ti

Napiši program koji će s tipkovnice učitati n brojeva. Teba ispisat koliko je uneseno parnih a kolko neparnih brojeva,te prosjek svih unesenih brojeva

program unos;
var brp,brn,n,i:integer;
pros:real;
begin
br:=0;
write('ucitaj n: '); readln(n);
for i:=1 to n do begin
if (i mod 2=0) then brp:=brp+1 else brn:=brn+1;
pros:=pros+i;
end;
pros:=pros/n;
writeln('ima ',brp,' parnih brojeva');
writeln('ima ',brn,' neparnih brojeva');
writeln('prosjek ucitanih brojeva je ',pros:3:3);
readln;
end.



evo, trebalo bi radit :)

Vjerojatno radi, ali ne ono sto bi trebalo... :)

Ti ovdje ucitavas samo broj n. No, trebao bi ucitati n, a zatim jos toliko brojeva (npr. ako je n = 5, onda ucitavas jos 5 brojeva).

program unos;
var brp,brn,n,i,z:integer;
pros:real;
begin
write('ucitaj n: '); readln(n);
for i:=1 to n do begin
readln(z);
if (z mod 2=0) then brp:=brp+1 else brn:=brn+1;
pros:=pros+i;
end;
pros:=pros/n;
writeln('ima ',brp,' parnih brojeva');
writeln('ima ',brn,' neparnih brojeva');
writeln('prosjek ucitanih brojeva je ',pros:3:3);
readln;
end.

aha :D malo sam krivo skužio, dobro rendula je riješio :)
mislio sam da treba for petlja do n ic