Begin

read(n);

i:=1;

repeat

if (i mod 2) = 0 then

begin

z:=z+1;

write(i);

end;

else

s:=s+1;

i:=i+1;

until i=n

write(`Jest ',z,' liczb parzystych');

write(`Suma liczb nieparzystych wynosi ',s);

end.

START

Read n

i:=1

i mod 2=0

z:=z+1

i:=i+1

Write i

T

N

i=n

N

s:=s+i

Write

„Jest” z „liczb parzystych”

„Suma l. nieparz. wynosi" s

STOP

Algorytm znajdowania i wypisywania:

- liczb parzystych

- ilości liczb parzystych

- sumy liczb nieparzystych

w zakresie od 1 do n.

Algorytm służący do znajdowania minimum wśród podanych n liczb.

Założenie: n należy do liczb naturalnych.

N

T

x<min

Read x

STOP

Write „min”

i:=i+1

N

T

i=n

min:=x

Read n

Read x

i:=0

START

T

---