Question

Mọi người ơi giúp em tính tổng S=1^2+2^2+3^2+....+n^2 vs n la số nguyên lẻ nhé nhớ nhé số nguyên lẻ ạ kiểm tra điều kiện trước khi tính tổng ạ.

Answer 1

var n,i:integer;
s:longint;
begin
write('Nhap so n='); readln(n);
if n mod 2 = 0 then write(n,' khong phai la so nguyen le')
else begin for i:=1 to n do
s:=s+(i*i);
write('Tong S=',s); end;
end.

Answer 2

dễ mà bạn

Answer 3

uses crt;

var n,s,i:integer;

begin

clrscr;

repeat

write('n=');readln(n);

if (n<=0) or (n mod 2=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (n>0) and (n mod 2=1);

s:=0;

for i:=1 to n do

s:=s+sqr(i);

writeln('tong la: ',s);

readln;

end.

Answer 4

uses crt;
var i,n,s:longint;
begin
clrscr;
write('n='); readln(n);
if n mod 2=1 then
begin
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('tong la: ',s);
end
else writeln('sai dieu kien');
readln;
end.

Answer 5