DSC00468

O

t^ĆftCcft V^vv1 \>VO^ Wer. litvrtĆ'W/bt/2

i:    *

,    ‘    r );..•!" r * * HB

i    _v .y ji-m> -jfj*\ą    t‘wU i Julmmo i to i*\a£j&fę

^jv}_Ci'Ńv> ^l '    j. . 2 ';a>^i>)^'0

.    *-v..    V*> .< ^f'.v.CJ .    -j:    .c '-•

}i<y.yih>±    j    • ^IjĄUA jjć&c

.v5    ’ tik 4^-Uj loCflUi^    <^/.bo^ . J

:łO:^AV|li, (LcJi’- I-i    - 4

program dwlejliczby;

uses crt;

var

a.b.w:intcger;

function mniejsza(x,y:integer):integer; var

min:integer;

begin

if x>y then mi n:=y else min:«*x;

mniejsza:-min;

end;

begin

clrscr;

write(Podaj liczbę a=’); readln(a);

wrice(‘Podaj druga liczbo b»*); readln(b);

w: »«ni ej sza (a. b);

wri tel nr Li C2ba najmniejsza jest liczba ’.w);

repeat until keypressed; end.

program poiega;

uses crt; var

aireal;

f unct i on port(g:real):real; var

i.n:byte; x:lnteger; bogiń

wri tein/ ‘program oblicza x do n por.egi*); writeCPodaj r>- ’); reądln(n);

write(¹ Podaj liczbo podnoszony do potęgi x- *); readłn(x);    ^

i:-l; g:-l;

»hi le ł<*n do begin

?;:<:?!

ond;

writeln(K:S,* do potogi *,nrO.* wynosi *« * .q:S:?): readln(a); end; begin clrscr;

w.iie(pot(a>); readln; end.

Erw m

Akfito ^vo^rcL^_f    )<oqd

v>o- <pt^/a9vK'e    -hyTJCL^i

o<>o *■-?(?ku^cJ^cA •

Tri

-Lk

i

T°

-l -;.L    ’

/ , f ^f *

^e*? ^    UfC&.-0£ kuj •)

Program koszty; uses crt; var

z:integer; s, x:real;

Procedurę kosztyy(var arinteger; brreal);

BEGIN

write(‘Podaj koszt rozmowy za minutę ’); readln(b);

write(’Podaj czas rozmowy w sekundach ’); readln(a);

s: -0;

wri telnCKoszt rozmowy wynosi ’ ,s; 7:2, 'zl *);

end;

begin

clrscr;

writelnf*program oblicza koszt rozmowy telefonicznej’);

kosztyy(z,x);

readln;

end.

Ahricjo. ^ogyCL.** ,lki,avvj 2ąqklcxx y&z+plluC

L 3    _ ■ _t ,    , .

uca^^    ćc(    yctieiiC|

w

Z u    >4 W.

\

y