Chỉ mình 3 câu này với ạ hoặc biết câu nào làm câu đấy cũng được Không sao đang cần nộp gấp Bài 1. Viết chương trình: - Nhập vào số nguyên N. - Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình. Bài 2. Viết chưrơng trình: - Nhập vào số nguyên N. - Tính tổng bình phương N số nguyên đầu tiên và xuất kết quả ra màn hình. Bài 3. Viết chương trình: - Nhập vào số nguyên N - Tính tổng các số chẵn nhỏ hơn N và xuất kết quả ra màn hình.

câu 1:

uses crt;

var i,n,t:longint;

begin

clrscr;

write('Nhap n: ');readln(n);

t:=1;

for i:= 1 to n do t:=t*i;

writeln('Tich = ',t);

readln;

end.

câu 2

program bt;
uses crt;
var n,S,i:integer;
begin
clrscr;
writeln('hay nhap n: ');readln(n);
S:=0;
for i:=1 to n do
S:=S+(i*i);
writeln('tong binh phuong cua day so la: ',S);
readln;
end.

uses crt;
var     n,i,j:longint;
begin
        clrscrwrite('Nhap n:');
        readln(n);
        write('so chan tu 1->n la:');
        for i:=1 to n do
        if i mod 2=0 then write(i,' ');
        writeln;
        write('so le tu 1->n la:');
        for j:=1 to n do
        if j mod 2<>0 then write(j,' ');
        readln;
end.

bài 2:

uses crt;
var     n,i,j,s,s1:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s1:=1;
        s:=0;
        write('tong cac so tu 1->n la:');
        for i:=1 to n do s:=s+i;
        write(s);
        writeln;
        write('tich cac so tu 1->n la:');
        for j:=1 to n do s1:=s1*j;
        write(s1);
        readln;