kiểm tra học ki 2

[thuha23102000]

[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.

viết chương trình tính tổng S=1+3+5+...+n (n nhập từ bàn phím)

 

[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.