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: var a:array[1..100]of integer;
Câu 2: for i:=1 to 20 do write(i:4);
Câu 15:
Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A.2 lần
B.Không lần nào
C.10 lần
D.1 lần
Câu 1: S = 10
Câu 2: Chữ "xin chao" được in ra màn hình 3 lần
Câu 3:
- For...to...do:
+ Là câu lệnh lặp với số lần lặp biết trước.
+ Điều kiện kết thúc vòng lặp là một số xác định.
- While...do:
+ Là câu lệnh lặp với số lần lặp chưa biết trước.
+ Điều kiện để kết thúc vòng lặp thường là một phép so sánh.
II: Tự luận
Bài 1:
uses crt;
var n,i,a,c,e:integer;
begin
clrscr;
write('nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i;
writeln('A=',a);
if (n mod 2=0) and (n>=0) then
begin
c:=0;
for i:=2 to n do
if i mod 2=0 then c:=c+i;
writeln('C=',c);
end
else begin
e:=0;
for i:=1 to n do
if i mod 2=1 then e:=e+i;
writeln('E=',e);
end;
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
write('nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Bài 3:
uses crt;
var x,n,i:integer;
lt:real;
begin
clrscr;
write('nhap co so x:'); readln(x);
write('nhap so mu n:'); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt:0:0);
readln;
end.
Bài 4:
uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat la: ',min);
readln;
end.
a: Có 6 vòng lặp
b: i=6
c: Kết quả là in ra các số từ 1 đến 6, giữa hai số có 3 dấu cách