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
Võ Hoàng Ngọc
Câu 2 . a.Viết chương trình tính tổng 50 số tự nhiên bằng vòng lặp for ... do b . Biến đổi chương trình tính tổng của 50 số tự nhiên đầu tiên ở câu 1 thành vòng lặp while ... do Câu 3 : Viết chương trình nhập vào một dãy số nguyên . Cho biết trong dãy có bao nhiêu số chẵn với n nhập từ bàn phím .
Nguyễn Lê Phước Thịnh
14 tháng 6 2020 lúc 15:25

Câu 2:

a) Dùng vòng lặp For...do

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('Tong 50 so tu nhien dau tien la: ',s);

readln;

end.

b) Dùng vòng lặp While...do

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

i:=1;

while i<=50 do

begin

s:=s+i;

inc(i);

end;

writeln('Tong 50 so tu nhien dau tien la: ',s);

readln;

end.

Câu 3:

uses crt;

var n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('So cac so chan la: ',dem);

readln;

end.


Các câu hỏi tương tự
trinhtrannamhoa
Xem chi tiết
Trương Đại Phong
Xem chi tiết
Yna Lolipop
Xem chi tiết
Lê Thị Như Ngọc
Xem chi tiết
Huỳnh Hân
Xem chi tiết
Minh Ngọc
Xem chi tiết
Thư Uyên
Xem chi tiết
Trịnh Nam
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết