Sử dụng lệnh lặp for to do viết chương trình tính tích các số tự nhiên lớn hơn 8 và bé hơn 16

Question

hauyen · Answer

đ&acirc;y bạn

minhtu · Answer

program tinhtich;

uses crt;

var i:byte;

tich:longint;

begin

clrscr;

tich:=1;

for i:=9 to 15 do

tich:=tich*i;

write(‘Tich cac so tu nhien lon hon 8 va be hon 16 la: ‘,tich);

readln;

end.

0 bình luận về “Sử dụng lệnh lặp for to do viết chương trình tính tích các số tự nhiên lớn hơn 8 và bé hơn 16”