Viết chương trình nhập 1 số nguyên x tính tổng bình phương các số lẻ từ 1 đến x 16/07/2021 Bởi Valentina Viết chương trình nhập 1 số nguyên x tính tổng bình phương các số lẻ từ 1 đến x
program tong_binhphuong_sole;uses crt;var n,i:integer; t:longint;begin clrscr; write(‘Nhap n: ‘); readln(n); t:=0; for i:=1 to n do if i mod 2=1 then t:=t+i*i; write(‘Tong binh phuong cac so le tu 1 den ‘,n,’ la: ‘,t); readln;end. Bình luận
Nếu bạn học Pascal thì code đây ạ.
program tong_binhphuong_sole;
uses crt;
var n,i:integer;
t:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i*i;
write(‘Tong binh phuong cac so le tu 1 den ‘,n,’ la: ‘,t);
readln;
end.