DSC00469

program pierwsze

u*e\ crt; v.» r

crinteger;

proceduro p1er(lrinteger) var

k.boolean;

1:by te;

Ber.in

i n mod 1-0 then kr-false;

ł:-ni{

until (k-false) or (i>-l);

1f k then

writelnCUczba \1,' jest liczby pierwszĄ')

ftno i

bogiń clrscr;

writeln('Progrn« wyświetla 1 write( Podaj liczbę a-'); readln(c): ropoat

c:»c-l: pier(c); imtii c-2;

repeat untll keypresscd: ond.

pler. mniejsze od podanej 1.')

'aotSJ-

program sumnliczb: uses crt: var

n:real: s:real:

procedurę suwa(var z:real): beoin

s:-{n*Cnł-l)l/2: writeln('Su»a liczb do 1 do eod: segin

w-itelń(’prograa oblicza sumę liczb naturalnych od 1 do n‘)

writeCPodaj liczbę n-'):

roadlnCn):

sw(b):

readln;

wynosi

* * fp-ćf N* (”f)• ęrry ^₍₀

waoV Wovne_vo,

J/LCe.it^ xjj. vjj^fąc/^-<c JiaJtA ₍?a jojj^iol

^vó)'4^-/    ^t- ^pt}^'ov,e 4iu/ui,

P ?^y^D,?~c'?o

program trójkąty;

uses crt;

var

q.w,c:integer^

procedurę tro]kat(var a,b,c;integer); var

p,s:real; begin

p:*>(a+bfC)/2; s:-0;

if (p-b>0) and (p-a>0) and (p-oO) then

s:-sqrt(p*(p-a)*(p-b)*(p-c)):

wntcln( Pole tr jk^ta wynosi ,s:0:2);

end

elso

wri teln('TrójkĄt nie powstanie’);

end;

begin

clrscr;

writeln(* Podai oblicza pole trójkĄta');

wri te ('Podaj bok a«*');

readln(q);

write('Podaj w-');

readln(w);

write(’Podaj e»');

readln(e);

trojkat(q,w,e);

readln;

end.

•'|0^>'i'jo-vvo. Vvo-^/voic;‘^9_J0 a* ^ *o< ^Ł<- ^ O

C 2:0-

juM

.-wa 1    A- C _r \

9clj A)0 ■ * r '~z

^\ó^\yOr^t t,vt <'Wł- ^a-tY^Cc^WĆlo ^/\^0

A*