Tin học tính tổng sử dụng pascal.

[LÊ KHÔI VĨ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

tính tổng sử dụng pascal.
s=1+3^2+5^2+7^2+...+n^2
(n>0)
các bạn giúp tớ nha.

 

[Code11]

var
n,tong:qword;
i:longint;
kt:boolean;
begin
write('Nhap n:');readln(n);
kt:=false;
if (n mod 2<>0) and (n>=3) then
for i:=3 to n do begin
kt:=true;
if i mod 2<>0 then tong:=tong+sqr(i);
end;
if kt then write('tong la:',tong+1) else write('so n ban nhap sai');readln;
end.
điều kiện của n là phải lớn hơn hoặc bằng 3 và phải là số lẻ
thấy ok thì like ủng hộ mình với ạ