DSC00453

'^dS^o, <^^eLuJ*c> -_n U .3 4' a .j,

•cl i.

t

begin Wr11

IJ    ! J pl 1;    '. LL i i -TT ii

! Uv>.k • >dK'•'^rtx.l n.;^. ^!

Program nliczb; uses crt; var

a,i,n,s:Real;

begin

clrscr;

MSl^KaSTił¹^ SSŁWriSŁl^¹

Read(n); i ;-0; s:-0;

while i on do

iteln('podaj liczbę a-¹); Read(a); a:=a*a;

_    s:=s+a;

i:=i+l; end;

writelnCwynik to ',s:5:2); Readln;

Readln; Program suma_kwadratow; end.    uses crt;

VAR

a,s:real;

BEGIN

clrscr;

writelnrprogram oblicza sumę kwadratów n liczb rzeczywistych’); writelnC Podaj ile liczb chcesz wprowadzić’); readln(n); i: —0; s:=0;

REPEAT

writeCPodaj liczbę a-'); readln(a); liczba:=sqr(a); s:»s+a; i:-i+l:

UNTIL i*=n;

write!n('suma kwadratu n liczb wynosi \a:5:2); readln; readln;

END.

n,irinteger;