DSC00466

I '

4Ć-. MM

^/mcx): <cip    i^ćóc ^votf<Ju/

^ycjCJo^a^ y^óa^ty.    IcWj yxb*j^ą

• s

program pierwsze;

USES crt;

VAR

i ,1:integer; k:boolean;

8EGIN

clrscr;

i:-2;

write(’podaj liczbę 1- ’);

readln(l);

k:=true;

REPEAT

IF 1 mod i-o THEN

k:-false; i :-i+l;

until (k=false) or (i>»l);

IF k THEN

writein('liczba jest liczba pierwsza’)

ELSE

writeln(’liczba nie jest liczba pierwsza’);

REPEAT UNTIL KEYPRESSED;

legin clrscr;

program X_potega;

uses crt;

var

n.i:byte; a,x:rcal;

Erocedure potęgi;

i ■'^J

writeln(*Program oblicza x do potęgi n’>; write(’Podaj n= *); readln(n); write(*Podaj x=‘); readln(x);

write(‘Podaj liczbę podnoszo-na do potęgi writeln(x:l;0); i:-l; a:-l;

while i<=n do

begin

i :-i+l;

a:«a*x;

end;

end;

begin

clrscr;

potęgi;    ...    ,    _ c*.

write(x:3:0 do potęgi ' ,n,' wynosi a= , a:5:5); readln(a);

repeat until keypressed; end.

Ua.ćnrjiZ-

M

program wielomian;

uses crt;

var

x,n:integer:

procedurę wielomian (c,m:integer); var

a,y,irinteger; begin y:=0; i: =0;

repeat    . .

write(’podaj a *.1, «    );

readln(a); y:»y‘c₊a; i :=i+l;

until i>m; ,,    .    ,    .

readln(x); wielomian(x.n); repeat until keypressed;

writeln('wymk wynosi- ,y); end; begi n

writelń(’program oblicza wielomiany');

write(*podaj n= ');

readln(n);

write('podaj x- );