program Tong;
var
n, i: integer;
sum: real;
begin
writeln('Nhap vao so n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + 1 / i;
end;
writeln('Tong S = ', sum:0:2);
readln;
end.
câu 1.trg pascal,cách đặt tên nào sau đây ko đúng
A.8a B.End C Lop_8 D.Hinh chu nhat
câu 2 trg pascal,cách khai báo nào ko hợp lệ?
A.var B.end C.uses D.program
câu 3. hãy cho bt gtrị của biến X bằng bnhiu sau khi thực hiện câu lệnh:
X:=10;
IF( 91 mod 3 ) =0 then X :=X+20;
A.10 B.30 C.2 D.1
câu 6 : hãy cho bt gtri của biến X = bnhiu sau khi thực hiện câu lệnh"
if(45 mod 3)=0 then X:=X+2;
( bt rằng trc đó gtri của biến X=5)
A.5 B.9 C.7 D.11
câu 7 ta có 2 lệnh sau: x;=8;
If x>5 then X:=x+1;
gía trị của x = bnh
A.5 B.9 C.8 D.6
câu 8 : giả sử A đc khai báo là biến vs kiểu giữ liệu xâu, X là biến vs kiểu dữ liệu số thực.phép gán sau đây là ko hợp lệ ko?
A.X:=4.1;
B. X:=324.2
C. A:='3242'
D.A:=3242;
giúp mik vs mai mik thi r TT
viết chương trình pascal tính tổng sau :
s= 1 + 1/2+1/3+1/4+...+1/100
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=3 do
n:= n+1;
S:= s+n;
A. 3
B. 6
C. 10
D. Kết quả khác
viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy
Viết ctrinh dưới đây bằng ngôn ngữ lập trình pascal? a)Tính tổng các số lẻ trong phạm vi từ 1 đến N(S=1+3+5+7...+N) b)Tính tổng các số chẵn trong phạm vi từ 1 đến N(S=2+4+6+8...+N c)Tính tích các số chẵn trong phạm vi từ 1 đến N(P=2.4.6...N) d)Tính tích các số lẻ trong phạm vi từ 1 đến N(P=1.3.5...N)
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=3 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=2 do
n:= n+1;
S:= s+n;
A. 3
B. 6
C. 10
D. Kết quả khác
