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;