Вывести ** экран первые N чисел последовательности: 8, 14, 20, 26, 32... Найти...

Question

Вывести на экран первые N чисел последовательности: 8, 14, 20, 26, 32...
Найти А1+А3+А5+А7+А9, где Ai - это i-ое число последовательности чисел.
Написать ко второму заданию программу на Паскале с использованием while/repeat/for.

Answer 1

Program p1;
var i,n,s:integer;
begin
s:=8;
write('Введите n:');
readln(n);
for i:=2 to n do
begin
write(s,' ');
s:=s+6;
end;
writeln(s,' ');
end.

Comments

Это первое, счас допишу второе

---

program p1;
var i,n,s,s1:integer;
begin
s:=8;
n:=9;
i:=1;
repeat
if not(i mod 2=0) then s1:=s1+s;
i:=i+1;
s:=s+6;
until i=n;
if not(i mod 2=0) then s1:=s1+s;
writeln('А1+А3+А5+А7+А9=',s1,' ');
end.

---

проверяйте

---

Большое спасибо.