DSC00464

w<r

alch<J-vjj

y^ayl. *rjvC>>ofr-?£fLo't<^

program przeciwprostokatna;

uses crt;

var

a.b,c:intcaer;

procedurę przeciwpr(x,y:integcr); var

z:real; begin

, z:»sqrtCsqr(x)+sqr(y)):

(wntelnCwartość przeciwprostoknt

b«)n

clrscr;

writelnCProgram oblicza wartość writeln(*Podaj dlugosc boków trój writeC Podaj dlugosc boku a-‘): readln(a):

writeC Podaj dlugosc boku b-‘);

readln(b);

przeciwpr(n,b):

repeat until keypresscd;

trójkąta o bokach

wynosi

^reciwprostokatnej tr'jkata z twierdzenia pitagor

ł_______ __i

program silnia; uses crt; var

nrbyte;

procedurę silnial(w:integer) var

s.i rinteger; begin clrscr; s:-l;

for i:=1 to n do s:=s*i:

writeC Silnia wynosi‘,s:5);

end;

begin

clrscr;

r.    \*    „ writelnCprogram oblicza n silnia')

W6lŁ*iĄ write(‘poda] n=');

repeat until n>=0; if n=0 then

writelnCsi lnia wynosi silnia-1’);

Silnial(n);

readln;

j'n*^er

ę 'CC&Aj&e- ^<XXVO- iro^dtr

’,'^mWSMA

va->-

program Pas; var‘

proćodure⁹T3(var nrrstring)

wnteCPodaj która to czę-jć

readln(nr);

end:

begin

iriteTnC'informatyka cz.',t

readln;

end.

rvCC

rv>vOvłCi

e)-rfTiO    u <4

rć>\?lvł€?.    O.

łJŹKkc

^cva>.    K<xzJe p^ę

vavłc ^    |c?yW^ -TV7

,d    u yi a*    u