Đỗ Thị Thên Trúc

Viết chương trình nhập vào N số nguyên dương tính tổng các số lẻ từ 0 đến N

💢Sosuke💢
16 tháng 6 2021 lúc 8:50

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)

Các câu hỏi tương tự
Uyen
Xem chi tiết
Elizabeth
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Thùy Trinh Ngô
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Trần Long
Xem chi tiết
thuan_64
Xem chi tiết
lân đinh
Xem chi tiết
Trần nguyên sang
Xem chi tiết