Question

нужна блок схема или хотя бы программа
помогите пожалуйста
срочно надо

Answer 1

program Var8;
var a,n:integer;
begin
a:=0;
For n:= 1 to 15 do begin
  If (n mod 2 = 0) then
     a:=n*n+1
  else a:= n*n + 2*n;
writeln(a);
end;
end.

Answer 2

это точно правильно?

Answer 3

Да, 146%

Answer 4

спасибо:3