Testas Nr. 1
1)
program
sk1nr1;
var
n, sum, i :
integer;
begin
read
(n);
sum := 0;
i := 1;
while
i <= n
do
begin
sum := sum + i;
i := i + 1
end;
writeln
('sum = ', sum)
end.
n :=
sum :=
2)
program
sk1nr2;
var
lp :
longint
;
a, i, n :
integer
;
begin
read
(a, n);
lp := 1; i := 1;
while
i <= n
do
begin
lp := lp * a;
i := i + 1
end
;
writeln
('lp = ', lp)
end.
a :=
br> n :=
lp :=
3)
program
sk1nr3;
var
n, s, i :
integer
;
begin
read
(n);
s := 1;
i := 1;
while
i <= n
do
begin
s := s * i;
i := i + 1
end;
writeln
('s = ', s)
end.
n :=
s :=
4)
program
sk1nr4;
var
m, s :
integer
;
begin
read
(m);
s := 0;
while
m > 0
do
begin
s := s + m;
m := m - 1
end;
writeln
('s = ', s)
end.
m :=
s :=
5)
program
sk1nr5;
var
n, a, i, d :
integer;
begin
read
(n, a);
i := 1; d := a;
while
i <= n
do
begin
a := a + d;
i := i + 1
end;
writeln
('a = ', a)
end.
n :=
a :=
a :=