Пожалуйста！Написать программу и блок схему. Посчитать сумму квадратов нечетных чисел от 1...

Question

Пожалуйста！Написать программу и блок схему. Посчитать сумму квадратов нечетных чисел от 1 до 77

Answer 1

Var summa,k,i:integer;    nechet:boolean;begin    summa:=0;    for i:=2 to 77 do    begin       nechet:=true;       for k:=2 to trunc(sqrt(i)) do       begin       if i mod k = 0 then  begin                             nechet:=false;                             break;       end;       end;       if nechet then Summa:=summa + sqr(i)       end;    writeln('Summa=',Summa);
end.