Izvorno postao
NoNCoNFoRMiST
Evo ja ti sad radim.
Zbog nečega ne mogu EDIT-at post.
Evo ti rješenja 2.,3., i 4.-og zadatka. Prvi ne znam riješit, onaj sa prostim brojevima. Malo mi je prekompliciran s obzirom da skoro i ne znam što su to prosti brojevi . No, ako ga baš trebaš riješit ću ti ga, sutra, il preksutra, il neka ti ga netko drugi riješi.
Dakle:
PRVI:
DRUGI:
Code:
program faktorijel;
uses crt;
var n,fakt,i:integer;
begin
clrscr;
write ('Unesi broj: ');
readln (n);
fakt:=1;
for i:=1 to n do
begin
fakt:=fakt*i;
end;
writeln ('Faktorijel od broja ',n,' je broj ',fakt,'.');
readln;
end.
TREĆI:
Code:
program kvadrat;
uses crt;
var n:integer;
begin
clrscr;
write ('Unesi broj: ');
readln (n);
writeln ('Kvadrat broja ',n,' je broj ',n*n,'.');
readln;
end.
ČETVRTI:
Code:
program sesterokut;
uses crt;
var povr,d:real;
begin
clrscr;
write ('Unesi stranicu (u centimetrima) pravilnog sesterokuta: ');
readln (d);
povr:=6*((sqr(d)*sqrt(3))/4);
writeln ('Povrsina je ',povr:0:2,' cm na kvadrat.');
readln;
end.
Pozdrav.