Первый вопрос - первое вложение. Второй - два остальных.
Скер мафака биич андеграунд
Вот программа на ABC Pascal
program progress;
var a,n,i,sum:integer;
begin cls;
write('Введите первый член прогрессии a1 = ');
readln(a);
write('Введите длину последовательности (сколько элементов) ');
readln(n);
sum:=a;
write(a,' ');
for i:=2 to n do begin
a:=a+3;
write(a,' ');
sum:=sum+a
end;
writeln;
write('Сумма ',n,' элементов прогрессии равна ',sum)
end.
1.
СЛОТ
длина четна ⇒ ЛОТ ⇒ МПУ
2.
МПУ
длина нечетна ⇒ МПУМ ⇒ НРФН