zadatak u Pascal-u

[dzajko]

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ć

[rendula]

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.

[terminator]

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

[dzajko]

Ok hvala ti

[dzajko]

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

[terminator]

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

[munst0r]

Autor terminator

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

[rendula]

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.

[terminator]

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