20100518725

Edit Search Run Cońuile Debug To o Ig_

[■]- — silnia, pas

program sprawdzian; uses crt;

war opcja„wynik„i:integer; function poletrojkataO:integer» ar a,h:lnteger; be gin ClrScr;

writeln <^Jpodaj a'>; readln <a>; writeln ('podaj h^#>; readln(h>;

poletrójkąta    (a*h>diu 2g

snd;

begin

ClrScr;

writeln ('wybierz opcje'>; writeln <'l? oblicz pole trojkata'); writeln ('2> silnia'ii

writeln ('3> wyznaczanie minimum z 3 liczb'>;

readln(opcJa>;

if (opcja ■ 1>

then

begin

writeln<'pole trojkata wynosi '>;

writeln(poletroJkata<>>;

end

else

if (opcja = 2> then begin ClrScy *

writeln ('podaj liczba'>; readln <opcJa>; write ('silnia od '>; write <opcJa>; iwriteln(' wynosi '>; wyniks*l;

for 1:- 1 «-n ..4. a.