Bài 7. Câu lênh lặp

Phạm Tiến

Mấy bạn ơi giúp mình đi , mình đang cần gấp :

Viết chương trình sau : Tính tổng các số từ 1 đến 15

Tính tổng các số lẻ trong phạm vi từ 1 đến 20

Nguyễn Lê Phước Thịnh
21 tháng 3 2020 lúc 21:28

Bài 1:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 15 do

t:=t+i;

writeln('tong cac so tu 1 toi 15 la: ',t);

readln;

end.

Bài 2:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do

if i mod 2=1 then t:=t+i;

writeln('tong cac so le trong pham vi tu 1 toi 20 la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Bảo Trâm
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Lê Bích Thủy
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Bảo Trâm
Xem chi tiết
HuyNoPro
Xem chi tiết
Maiiii
Xem chi tiết
h9iii
Xem chi tiết
Bảo Ngân
Xem chi tiết