Question

1)Viết CT nhập vào số N nguyen dương. Hãy đếm xem có bao nhieu số chia hết cho 2 va 5 từ 1->N

5)Viết CT nhập vào 2 số M, N nguyên dương(0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N

6) Các câu lệnh sau đúng hay sai, vì sao? Nếu sai, hãy sửa lại cho đúng

a.For i:=1 to 10 do; write(i:5); b. for i:= 100 to 10 do x=x-i;

c.For i:=100 to200 do i:=i+5; d. for i:=0*4 to 20*4 do write(i-5);

d. Vả n,i:real;

begin n:=0;i:=0;fori:=5 to105 do n:=n+i;end.

Answer 1

1/

program chia_het;

uses crt;

var n, i, s: integer;

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

begin

clrscr;

write('Cac so can nhap la: n = '); readln(n); s:=0

for i:=1 to n do begin

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

if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;

writeln('Cac so chia het cho 5 va 2 la: ',s);

readln

end.

Answer 2

6.a sai vì sau do có dấu ;

==> sửa lại: for i := 1 to 10 do write(i:5);

6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :

==> sửa lại: for i:=10 tờ 100 đô x:=x-i;

6.c sai vì to viết liền với số 200

==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;

6.d đúng

6.d2 thừa i:=0 và còn ko cách chỗ to và 105

sử lại: var n, i:real;

begin n:=0; for i:=5 to 105 do n:=n+1; end.