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
Đã Ẩn

Giúp mik với nha mik đang cần gấp!!!

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

Câu 1: 

Dùng for..do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

for i:=1 to 100 do 

  if i mod 2=0 then a:=a+i;

writeln(a);

readln;

end.

Dùng While...do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

i:=1;

while i<=100 do 

  begin

if i mod 2=0 then a:=a+i;

inc(i);

end;

writeln(a);

readln;

end.


Các câu hỏi tương tự
Huỳnh Thị
Xem chi tiết
Hòa An Lê
Xem chi tiết
Nguyễn Khánh Linh
Xem chi tiết
Đã Ẩn
Xem chi tiết
khánh
Xem chi tiết
Dương Kim Chi
Xem chi tiết
duong cam van
Xem chi tiết
Nguyễn Tiến Đạt 8/1
Xem chi tiết
Châu Lê Thị Minh
Xem chi tiết