DSC00467

r ilTr

£/l/R. ¹

:c-

Fuwjccjk-    i

. program t8;

fc?oW.; '«<-

program podzielniki; uses crt;

vnr

procedurę podziel nik(a:integer); *-

var

K,oz:integer; begln «r-l; repeat

if 3    k~0 +hpn

begin

textcolor(110);

d7.!r-3 rfiv k;

wnteint/dziełnik wynosi az-',dz); end;

k:«k+l;

untll (k>round(sqrt(a))) and (k-20); end;

Begin

textcolor(red);

clrser-

write(’podaj wartość liczby-'); rendlnn irzna.); poazieinikOiczba;;

Readln;

Readln; end.

a?b:integer; dz:real;

function dziel<1.mrintcgcr; var ile:real):rcal; 8EGIN

IF l/m<l THEN

ile:-l ELSE i 1c:-2; dziel:=ile; end;

BEGIN

writeCPodaj a-*); readln(a); write(Podaj b=*); readln(b);

yylOłCw

IF b*0 THEN

writeln('próba dzielenia przez 0’)

ELSE

writeCdziel(a.b.dz));

readln;

end.

V) U/ /mu.¹)! ^^-ULVVu£«>^^0-rtO

^:    -_}    : u | — 1

-;0 r/U ^ \Q.    3-^<vvVvG,^^0_|

lo0° -^ło-lO) e?Lho. ĄV2śI<.0- -HMioJłO,

: j i J____PB

b    Yi    -O.    i

^sf>“_ru-iA€i^jesf A\J,_}V5^<voo1o-~Y i______ . ...    ,'V    .11.

.    .i    J    .

^0-    ^ .    r^A) V    K

'    f.    —    • -| -♦ ’ i

v ' W *v/kn ; - ^ai.-jok    , [ i^lzi ■ Wfiro m

i ^v    ,. i pj N I I ^ } i SBin

-    Y, ^