奇数的平方和pascal奇数的平方和Description输入一个正整数n,输出1至n之间所有奇数的平方和S.Input只有一行且只有一个正整数:n ( 1

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 03:30:03
奇数的平方和pascal奇数的平方和Description输入一个正整数n,输出1至n之间所有奇数的平方和S.Input只有一行且只有一个正整数:n ( 1

奇数的平方和pascal奇数的平方和Description输入一个正整数n,输出1至n之间所有奇数的平方和S.Input只有一行且只有一个正整数:n ( 1
奇数的平方和pascal
奇数的平方和
Description
输入一个正整数n,输出1至n之间所有奇数的平方和S.
Input
只有一行且只有一个正整数:n
( 1

奇数的平方和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程序很久没写了