Bài 8. Lặp với số lần chưa biết trước

TH

Viết chương trình nhập vào n số bất kì từ bàn phím và tính tổng các số chẵn?

(Sử dụng câu lệnh while..do)

TD
13 tháng 3 2018 lúc 22:02

program bai1;

var n,s,i,x:longint;

begin

write('N= ');

readln(n);

i:=1;s:=0;

while i<=n do

begin

write('x',i,'= ');

readln(x);

if x<0 then s:=s+x;

i:=i+1;

end;

write('S= ',s);

readln

end.

Bình luận (0)
TD
13 tháng 3 2018 lúc 22:04

sửa lại ở chỗ while do là

begin

write('X= ');readln(x);

if x mod 2=0 then s:=s+x;

i:=i+1;

end;

Bình luận (0)
TT
14 tháng 3 2018 lúc 19:55

program bai_tap;
type mang = array[1..1000] of integer;
var a:mang;
i,j,n:integer;
begin
writeln('nhap n:');
readln(n);
i:=1;j:=0;
while i <= n do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
if a[i] mod 2 = 0 then j:=j+a[i];
inc(i);
end;
write(j);
readln
end.

Bình luận (0)

Các câu hỏi tương tự
TA
Xem chi tiết
LA
Xem chi tiết
TT
Xem chi tiết
TH
Xem chi tiết
NT
Xem chi tiết
TT
Xem chi tiết
TH
Xem chi tiết
NV
Xem chi tiết
PT
Xem chi tiết
QP
Xem chi tiết