- wczytuje liczbę całkowitą \(\displaystyle{ n}\)
- powtarza ją do tej pory aż \(\displaystyle{ n>2}\)
- wczytuje \(\displaystyle{ n}\)- elementów dowolnych liczb rzeczywistych i oblicza sumę
liczb elementów dla \(\displaystyle{ i}\)- parzystych i \(\displaystyle{ i}\)- nieparzystych
- wartości sum drukuje na ekran.
-- 27 sty 2013, o 21:08 --
ja bym to tak napisała:
Kod: Zaznacz cały
var
n,i:integer;
s1,s2,a:real;
begin
repeat
writeln('podaj liczbe');
readln(n);
until (n>2);
s1:=0;
s2:=0;
for i:=1 to n-1 do begin
writeln('podaj a');
readln(a);
if a mod2=0 then
s1:=s1+a
else
s2:=s2+a;
end;
writeln('wartosc sumy= ', s1);
writeln('wartosc sumy= ', s2);
end.