Lập trình Pascal

[hangnt94]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn giải giùm mình câu 2.08 đến 2.10, với 2.15 đến 2.17 nh
Lâu mình không học cũng quên rùi

http://www.mediafire.com/view/d73qnwhd0w15qy3/Photo0564.jpg


http://www.mediafire.com/view/t7191r99aj79142/Photo0566.jpg

 

[thanhphuong8100]

Mình làm 2.09 trước nha bạn. 2.08 mình hổng biết làm hì hì.

program so;
uses crt;
var tr,ch,dv,i : integer;
begin
    clrscr;
    for i:=100 to 999 do begin
      dv:=i mod 10;
      ch:=(i div 10) mod 10;
      tr:=i div 100;
      if (dv+ch+tr=20) and (i mod 6=2) then write(i:4);
    end;
    readln
end.

 

[thanhphuong8100]

2.10 Bài này mình ko biết cách sang trang màn hình, nên chỉ làm theo kiểu bình thường thôi nha. Bạn thông cảm

program so;
uses crt;
var i,d,c,t,n : integer;
begin
    clrscr;
    for i:=1000 to 9999 do begin
      d:=i mod 10;
      c:=(i div 10) mod 10;
      t:=((i div 10) div 10) mod 10;
      n:=i div 1000;
      if t+n=c+d then write(i:5);
    end;
    readln;
end.

2.17 Bài này trong quá trình tính gt mình đã thay đổi giá trị biến N (để tiết kiệm dung lượng) nên lúc cuối chỉ xuất ra N dưới dạng kí tự thôi, nếu bạn muốn xuất ra dạng số (như ban đầu nhập) thì thêm 1 biến tạm nữa nha.

program giai_thua_kep;
uses crt;
var n,i: integer;
    gt: int64;
begin
    clrscr;
    write('Nhap n = ');  readln(n);
    gt:=1;
    while n>=1 do begin
      gt:=gt*n;
      n:=n-2;
    end;
    write('n!! = ',gt);
    readln
end.