DSC00451

DHltf i)lQ ^

UHILE Je <= .(GO V0

mg \n

?vjijaX hZi ^j>7f

program suma_iteracyjna; usos crt: var

suma,a:integer; begin clrscr; suma:-0: a:-l;

while a<-5 00

BEGIN

suma:-suma+a; end-^+1:

writeln('Suma 5 kolejnych liczb naturalnych wynosi S-*,suma:S);

re«Tdln;

end.

i i    ’ i    ¹¹

. Jłs.1

U 3?

U i, i ’ Tl

o.

» ,

v <3 i k ki_ {£    . J i *    '

program średnia_aryt»ctyczna;

uses crt;

var

suma,a:inteqer; średnia:rea i; begin clrscr; suma:=0; a:-0;

while a<»10 DO BEGIN

suraa:*suma+a;

a:-a+2;

end;

średni a :-suma/10;

writeln('srednia wynosi sr» ,średnia:S:1);

readln;

end.

	'i
ii łSLWL	• C L
l • $ i " Al *11,.	r	. .
	> ji.

-J.J-sA* . -3.J