Viết chương trình pascal T=1×2×3×..×n
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
câu 1:
program AlgorithmExample;
var
T, n: integer;
begin
// Bước 1
T := 8;
n := 1;
// Bước 2
while T < 99 do
begin
// Bước 3
n := n + 3;
T := T * n;
end;
// Bước 4
writeln('Gia tri cua T: ', T);
writeln('Gia tri cua n: ', n);
readln;
end.
câu 2:
program StudentAverage;
var
n, countAboveAverage: integer;
sum, average, score: real;
begin
// Nhập số lượng học sinh
write('Nhap so luong hoc sinh (1-70): ');
readln(n);
// Kiểm tra điều kiện
if (n < 1) or (n > 70) then
begin
writeln('So luong hoc sinh khong hop le.');
readln;
halt;
end;
// Khởi tạo biến
countAboveAverage := 0;
sum := 0;
// Nhập và tính điểm trung bình
for var i := 1 to n do
begin
write('Nhap diem cua hoc sinh ', i, ': ');
readln(score);
sum := sum + score;
// Kiểm tra điều kiện điểm trung bình
if score >= 5.0 then
countAboveAverage := countAboveAverage + 1;
end;
// Tính điểm trung bình
average := sum / n;
// In ra kết quả
writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');
readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
2:
#include <bits/stdc++.h>
using namespace std;
double s;
int n,i;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+(i*1.0)/((i+1)*1.0);
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Program viet_chuong_trinh;
uses crt;
var
i,n,T:integer;
begin
clrscr;
writeln('Moi nhap n = '); readln(n);
T:=1;
for i:=1 to n do T:=T*i;
write(T); readln;
end.
uses crt;
var n,i,t:LongInt;
begin
clrscr;
write('nhap n:');readln(n);
clrscr;
t:=1;
for i:=2 to n do t:=t*n;
write('t=',t);
readln;
end.