viết chương trình PASCAL nhập vào n số nguyên từ bàn phím và ghi ra màn hình số các số dương trong các số đó, số n cx đc nhập từ bàn phím
viết chương trình PASCAL nhập vào n số nguyên từ bàn phím và ghi ra màn hình số các số dương trong các số đó, số n cx đc nhập từ bàn phím
Viết chương trình tính giai thừa của một số N bất kì
uses crt;
var S,N,i:longint;
begin
clrscr;
writeln('Nhap so N=');readln(N);
S:=1;
for i:=1 to N do S:=S*N;
writeln('N!=',S);
readln
end.
program Tinh_Giai_Thua;
uses crt;
longint S,N,i:longint;
begin
clrscr;
writeln('Nhap so N=');readln(N);
S:=1;
for i:=1 to N do S:=S*N;
writeln(N,'!=',S);
readln
end.
Viết c trình
a) nhập từ bàn phím một số nguyên n biểu diễn sĩ số của một lớp 1<=n<=45. Khi người sử dụng nhập số nguyên ngoài khoảng này, c trình sẽ yêu cầu nhập lại và chỉ kết thúc khi số hợp lệ được nhập.
b) nhập số thực x biểu diễn điểm của học sinh 0<=x<=10 làm tròn đến 1/4.
Mik đang cần gấp mn giúp mik nhé!
a.Var n:integer;
Begin
Repeat
Write (' so hs cua lop :');
Readln (n);
Until (n>=1) and (n<=45);
Readln;
end.
Bạn nào giỏi tin học cho mình hỏi làm cách nào để in dữ liệu kiểu này trong Pascal:
1 2 3 4 5
6 7 8 9 10
viết chương trình (pascal) nhập vào 1 số nguyên n
-xét số đó chẵn hay lẻ
-tìm các ước của nó in ra màn hình
-tính tổng các ước chẵn ( lệnh for..do )
không làm ý 1 cũng đc ( mình lm đc)
thanks
khỏi ý 1 nha
program bai1;
var n,s,i:longint;
begin
write('N= ');readln(n);
write('Uoc cua ',n,' la: ');
for i:=1 to n do
if (n mod i=0) then write(i,' ');
s:=0;
for i:=1 to n do
begin
if (n mod i=0) then
if (i mod 2=0) then s:=s+i;
writeln('Tong cac uoc chan la: ',s);
readln
end.
Viết chương trình tính tổng s=1+3+5+...+n (n nhập trên bàn phím)
program bai1;
var n,i,s:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong la ',s);
readln
end.
thêm ở for do là if i mod 2=0 then s:=s+i
Mô tả thuật toán
các số chia hết
nhập hai số ngyên a,b (b>a) xuất các số từ 2đến b mà chia hết cho a
Hãy mô tả thuât toán để tính tổng A sau đây (n là số tự nhiên được nhập vào từ bàn phím):
\(A=\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{n\left(n+2\right)}\)
var n,i:longint;
a:real;
begin
write('n=');readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln(' Tong la: ',a);
readln;
end.
B1:Nhập n từ bàn phím;
B2:i:=1;s:=0;
B3:s:=s+1/i(i+2);i:=i+1;
B4:Nếu i<=n thì quay lại b3,ngược lại thông báo kết quả và kết thúc thuật toán.
uses crt;
var i,n:integer;
tong: real;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do
tong:= tong + (1 / (i * (i + 2)));
write('A= ',tong:0:2);
readln
end.
Hãy viết chương trình để tính tổng sau đây:
nhớ là viết chương trình nhe
A=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{n.\left(n+2\right)}\)
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+1));
writeln(' tong la: ',s);
readln;
end.
viết lại đề xuống bình luận hộ mik nhé mik ko nhìn thấy
vả i, n, s :real;
begin
read (n);
s:=0;
for i:=1 to n do ;
s:=s+1/i;
readln;
end.