DSC00454

program srcdnia_arytmctyczna; uscs crt;

VAR

s.arreal;

1,n:integer;

REGIN

until i-n;

writelń('srenia arytmetyczna '. n liczb wynosi suma:l:2);

rAiHln•

writelńcprogram wylicza średnia arytmetyczna n liczb'): write('podaj ile liczb chcesz wczytac ): readln(n); i :-0; suma:«0;

REPŁAT

write('podaj liczbę a- ); readln(a); i:-Ul;

Al do ^Mhkkisąo

U NT/L

r    *    ■    • -v ^:    1    •    * ^ i -' — i !    1.... j _

r₀c    ^ celiu O ‘ĄS’C£

i I i I J^T

readln;

readln;

ENO.

program średnia;

uses crt:

var

a, n, i _r s: rcal; Regin clrscr;

e-cvOl &

writoin('Program liczący średnia n kolejnych liczb'); writeln('Podaj ile liczb chcesz wprowadzić ); read(n); i: -O;

5 * **0 •

while i on do

sc.gin    ,    .

write('Podaj liczbę a- );

readln(a);

s:°s+a;

i:-i+l;

end;

wri tein ('wynik to ',s:5:2) ;

readln;

readln:

end.

lC ^vV^ -YT7P^;,ix sjco^^iW^Ł <^r<^ P .c<2'M Ocxeiu^o,^iva k*j ^u5woą,cie olfeió^

Aa^<&óxyłxi

ty    'ftp f£Af( - -^: - • -........-

i ._y^Y<kc‘^ iy

.

i

/loyl**- ■ ^.vo^vo-'>v_ł ‘*vw po-yfó- C

^ ^; 0 dc i f z k/YoWc^ tpj*(O. f ak,j(ty 3

program sini; uses crt:

var

a.itreal;

begin

clrscr;

a:*0:

i:-0;

WMILE i<2.01 00 begin

a:=pi*a/180:

a:-sin(a);    . ,    _

writeln(*Sinus kgta wynosi .a:7:2);

i:»i+0.1;

end:

readln;

end.

X -

CU

Tak-Jfe    ;

liuitt TT Zr>r-CUS<-$UW

w? •    i ■ ■■! ^w +ArA&xcC    >c ^na

od \<\.    __y    ^ da'ić\

J    i i J I |    | j |___l i |    1 i__| . |    |. ?    |

jm ^toćJKey"    ^^c'ⁿ    °^a' ^r '^;lu

/■

Sld-L