DSC00456

próg rani nieparzyste; uses crt; var

s.w.i:integer; sr;real;

ta k_n i e: c h a r; beg1 n jcpeat;

wri"tclń('Progra» oblicza średnia arytmetyczna 10 kolejnycK *W**»fizystych liczb s:-0    naturalnych^; r >

tę	W	/IO--
f

•c^ O^^b-62. 'łohbl

,(dc ioc ^:    !

taf

OtUAH

clrscr *

writelnCProgram wyświetla tabliczkę mnożenia w zakresie od 1 do 100’);

FOR i:-l TO 10 DO

uJOs

BEGIN FOR j:«l TO 10 DO write(i*j:S); writeln; end; readln; end.

VAR

a.b;real

bęo^<?

? % kt Jl Li^h

write(i:9,s:9:2); iln:

wri te

end;

readln;

end.

l(

j    ^    .    1

•(•A'cyn#,    Kfonj a.v    , ,•    .^    \

-'iC- i *nęxsśe i<J> ^iCLiłailiwłł i M / i dla. .<*•£'    \r-

.    n. ⁴ 1 ~~ -J    ■ iy⁰ lid

c«H ; - ; rn#i    dOT^SEWI

'f ^ l\U .3 , j : 2^[\    ' • ■ -A I

w:=l

For i;-l To 10 Do

begin

s:-s+w;

w:«wt-2;

cnd;

sr:-s/10:

wri teln('średnia arytmetyczna wynosi sr-’,sr:7;2);

writeln(’Jeszcze raz? (T)ak*);

tak_nie:-upcase(ReadKoy);

until(tak_nie«'T');

cnd.

. £COrM.^;b. P

program tabliczka; USES crt;

VAR

i,jrintcger;

BEGIN clrscr;

■^c (l 08*

i -rjAl6 jc

PROGRAM najwi ekszy_wspolny_dz1elni k USES crt-

BEGIN clrscr;

dzielnik*);

Readln(a);

writein('podaj b- ');

Readln(b); while aob DO BEGIN

IF a>b THEN

a:-a-b

ELSE

b:=b-a;

end;

writeln(*największy wspólny dzielnik to \a:7:2);

RCaU I fi,

EMO.

i    ^yO^VCL'vv1    Y°    ^

jjp) ^lł\ kdtJo o^JcomI^

program procent;

, uses crt: var

a.i, j:integer; s:real: begin

clrscr^ ^

writeln(*Program oblicza 7% z dziesięciu kolejnych liczb całkowitych*);

writeCPodaj liczbę od której chcesz zac2ac a-');

readln(a);

for ito a«-l0 do

begin

for j:-a to a+1 do textcolor(59): s:-1*0.07;

,1!ay'r    /o. .>1    w V-|

rv

m-;