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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
maiduyphuc

viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên.In ra màn hình tổng đó.

GIÚP MÌNH NHANH VS!!!!!!!!

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

uses crt;

var i,t,a:integer;

begin

clrscr;

a:=0; t:=0;

for i:=1 to 100 do

begin

t:=t+a;

a:=a+2;

end;

writeln('Tong cua 100 so tu nhien chan dau tien la: ',t);

readln;

end.

Minh Lệ
1 tháng 5 2020 lúc 18:14

Program hotrotin_hoc24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 200 do if t:=if i mod 2=0 then t:=t+i;

write('Tong 100 so tu nhien chan dau tien la : ',t);

readln

end.


Các câu hỏi tương tự
Đạt Nguyễn
Xem chi tiết
Không Cần Tên
Xem chi tiết
My Trinh
Xem chi tiết
Pham Minh Vương
Xem chi tiết
Võ Hoàng Ngọc
Xem chi tiết
Trần Ngọc Nhã Linh
Xem chi tiết
Võ Hoàng Ngọc
Xem chi tiết
Ngọc Hòa
Xem chi tiết
Nguyễn Mai Khánh Huyề...
Xem chi tiết