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.
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
1. program b1 ;
var i,n :integer ;
begin
tong:=0;
for i:= 1 to 200 do n:=n+i;
write('Tong 200 so nguyen dau tien la :',n);
readln
end.
2. program b2 ;
var i,t: integer;
begin
t:=1;
for i:= 1 to n do t:=t*i;
write('Tich 30 so nguyen dau tien la : ',t);
readln
end.
3. program b3;
var n,i : integer ;
begin
write('n='); readln(n);
n:=1;
for i:= 1 to n do n:=n*i; write('n!=',n);
readln
end.
4. program b4;
var i,n,x:integer;
lt:longint;
begin
write('nhap x='); readln(x);
write('nhap n='); readln(n);
lt:=1;
for i:=1 to n do lt:=lt*x;
write(x,'^',n,'=',lt);
readln
end.
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạng.png)
Câu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17
a. Hợp lệ
b. Không hợp lệ (vì 3242 là số mà X là biến kiểu xâu )
c. Hợp lệ
d. Không hợp lệ (vì -3242 là số mà X là biến kiểu xâu )
uses crt;
var a,b,c,d:real;
i,j,n:integer;
begin
clrscr;
a:=1;
i:=5;
while i<=40 do
begin
a:=a*i;
i:=i+1;
end;
writeln('A=',a:0:0);
b:=0;
i:=15;
while i<=170 do
begin
b:=b+i;
inc(i);
end;
writeln('B=',b:0:0);
j:=-20;
c:=0;
while j<=50 do
begin
c:=c+j;
inc(j);
end;
writeln('C=',c:0:0);
write('Nhap n='); readln(n);
d:=0;
i:=1;
while i<=n do
begin
d:=d+1/i;
inc(i);
end;
writeln('D=',d:4:2);
readln;
end.
Câu 22. A
Câu 26. B
Câu 27. A