Câu 2 : Nhập N . Viết chương trình tính tích các chữ số tự nhiên từ 1 đến N

Program BTH;
uses crt;
var n,i:longint;
s:word;
begin
        clrscr;
        Repeat
        write('Nhap n: ');readln(n);
        If n mod 2=1 then
                writeln('So nhap khong hop le moi nhap lai');
        until n>0;
        s:=1;
        For i:=1 to n do
                s:=s*i;
        write('Tong day so tren la: ',s);
        readln;
end.

Khanh6a4

Chúc bn hc tốt4

ch0 mình hay nhất ná

program oken;
uses crt;
var n,i: integer;
    t: qword;
begin
        clrscr;
        write('nhap 1 so n: '); readln(n);
        t:=1;
        for i:=1 to n do
             t:=t*i;
        Writeln('tich cua cac so tu 1 den ',n,': ',t);
        readln;
end.