Kod: Zaznacz cały
program sumowanie;
var n,i:integer;
s,a:real;
begin
write ('Podaj ile liczb wysumować');
read (n);
if n>0 then
begin
s:=0;
i:=0;
repeat
write ('Podaj liczbę');
read (a)
i:=i+1
s:=s+a
until i=n;
writeln (s);
end
else
writeln ('brak danych');
end.
a) pętli while
b) pętli for