chương trình pascal sau đây thực hiện hoạt động nào ?
var i : integer ;
begin
for i:=1 to 1000 do ;
end.
Những câu hỏi liên quan
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i,s: integer;
begin
s:=0;
for i:=1 to 1000 do
s:=s+i;
end.
Chương trình Pascal sau đây thực hiện hoạt động nào?var i: integer;beginfor i:1 to 99 do;end. A. Chương trình chạy biến i từ 1 đến 100. B. Chương trình chạy biến i từ 1 đến 99 rồi không làm gì cả. C. Chương trình chạy biến i từ 1 đến 100 rồi không làm gì cả. D. Chương trình chạy biến i từ 1 đến 99.
Đọc tiếp
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i:=1 to 99 do;
end.
A. Chương trình chạy biến i từ 1 đến 100.
B. Chương trình chạy biến i từ 1 đến 99 rồi không làm gì cả.
C. Chương trình chạy biến i từ 1 đến 100 rồi không làm gì cả.
D. Chương trình chạy biến i từ 1 đến 99.
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i =1 to 101 do;
end.
A. Chương trình chạy biến i từ 1 đến 101.
B. Chương trình chạy biến i từ 1 đến 100.
C. Chương trình chạy biến i từ 1 đến 101 rồi không làm gì cả.
D. Kết quả khác.
Câu 20: Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i =1 to 101 do;
end.
A. Chương trình chạy biến i từ 1 đến 101.
B. Chương trình chạy biến i từ 1 đến 100.
C. Chương trình chạy biến i từ 1 đến 101 rồi không làm gì cả.
D. Kết quả khác.
Chương trình pascal sau sẽ in ra màn hình nội dung gì? 2đ
Program vidu;
Var i: integer;
Begin
For i:=1 to 10 do Writeln(i);
Readln;
end.
Xem chi tiết
Chương trình sẽ in ra nội dung sau:
1
2
3
4
5
6
7
8
9
10
Đúng 1
Bình luận (0)
Cho khai báo mảng Var A: Array[1..10000] of integer; n, i: word; Begin Readln(n); For i:=1 to n do read(A[i]); End. Chương trình trên thực hiện công việc nào
thực hiện công việc nhập n số từ bàn phím
Đúng 0
Bình luận (0)
Câu 2: Chương trình Pascal sau đây thực hiện hoạt động nào?
Var i:Inetger;
Begin
For i:=1 to 40 do Write (‘so thu’, i);
End.
Nhập 40 số nguyên
In ra màn hình 40 chữ "So thu" từ 1 đến 40
Chương trình sau giải quyết vấn đề gì? Var a:array[1..4] of integer; Begin For i:1 to 4 do Begin Write(nhap cac phan tu A[,i,]:); readln (a[i]); End; For i:1 to 3 do For j: I+1 to 4 do If a[i] a[j] then Begin tg:a[i]; a[i]:a[j]; a[j]:tg; end; For I:1 to 4 do Write(a[i]); End.Select one:a. sắp xếp các phần tử của mảng theo tr...
Đọc tiếp
Chương trình sau giải quyết vấn đề gì?
Var a:array[1..4] of integer;
Begin
For i:=1 to 4 do
Begin
Write('nhap cac phan tu A[',i,']:');
readln (a[i]);
End;
For i:=1 to 3 do
For j:= I+1 to 4 do
If a[i]> a[j] then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
For I:=1 to 4 do
Write(a[i]);
End.
Select one:
a. sắp xếp các phần tử của mảng theo trật tự tăng dần
b. Tìm Max
c. sắp xếp các phần tử của mảng theo trật tự giảm dần
d. Chương trình có lỗi
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?