Question

[Anh Minh]

1.sử dụng lệnh while..do để

a)hiển thị dãy số 14-99

b)nhập vào 17 số nguyên .tính tổng và số chữ cái của tổng đó

2.nhập vào 15 số nguyên tính tổng có mấy chữ số

Answer 1

[Minh Lệ]

Lời giải :

Câu 1 :

a)

program hotrotinhoc ;

var i: integer ;

begin

i:=13;

while i <99 do i:=i+1;

write(i);

end.

b)

program hotrotinhoc ;

var a: array[1..17] of integer ;

i,tong : integer ;

begin

writeln('nhap gia tri cua cac phan tu');

for i:=1 to 17 do

begin

write('So nguyen thu ',i,':'); readln(a[i]);

end;

tong:=0;

for i:= 1 to 17 do

tong:=tong+a[i];

write('Tong la :',tong);

readln

end.

Câu 2 Bạn kiểm tra lại đề nhé sao lại ' tính tổng có mấy chữ số ' ạ ?