program z1;
var a:array [1..13] of integer;
i,e,n,s:integer;
begin
i:=1;
e:=2;
repeat
a[i]:=e;
i:=i+1;
e:=e+3
until e>15;
n:=i-1;
write('Ряд:');
for i:=1 to n do
write(a[i]:4);
s:=s+a[i]
end;
writeln;
write('Сумма чисел: ',s)
end.
Объяснение:
Без массива
var i,s:integer;
i:=2;
write(i:4);
s:=s+i;
i:=i+3;
until i>15;
program z1;
var a:array [1..13] of integer;
i,e,n,s:integer;
begin
i:=1;
e:=2;
repeat
a[i]:=e;
i:=i+1;
e:=e+3
until e>15;
n:=i-1;
write('Ряд:');
for i:=1 to n do
begin
write(a[i]:4);
s:=s+a[i]
end;
writeln;
write('Сумма чисел: ',s)
end.
Объяснение:
Без массива
program z1;
var i,s:integer;
begin
write('Ряд:');
i:=2;
repeat
write(i:4);
s:=s+i;
i:=i+3;
until i>15;
writeln;
write('Сумма чисел: ',s)
end.