kiểm tra học ki 2

H

harry9xsakura

program tinhtong;
uses crt;
var i,tong,n:longint;
begin clrscr;
writeln('nhap so n');
readln(n);
for i:=0 to n div 2 do tong:=tong+i*2+1;
writeln('tong S la : ',tong);
readln;
end.
:rolleyes:
 
Top Bottom