来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/30 18:22:43
奇数的平方和pascal
奇数的平方和
Description
输入一个正整数n,输出1至n之间所有奇数的平方和S.
Input
只有一行且只有一个正整数：n
( 1
var
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
if odd(i)
then s:=s+i*i;
writeln(s);
end.
或许会有编译错误》pascal程序很久没写了
再问： 准确点好不
神马作文网