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.
vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần
mỗi vòng lặp đều tăng j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc
giá trị của j là\(j=0+2\times7=14\)
khoanh B
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
For to do:
- Cú pháp:
for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Giải thích:
+ Từ khóa: for, to, do
+ Biến đếm: kiểu nguyên
+ Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)
+ Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm
+ Số lần lặp: giá trị đầu - giá trị cuối + 1
- Hoạt động:
+ Biến điếm sẽ nhận giá trị bằng giá trị đầu
+ Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết thúc lệnh lặp
While do:
- Cú pháp: while <điều kiện> do <câu lệnh>;
- Giải thích:
+ Từ khóa: while, do
+ Điều kiện thường là một phép so sánh
+ Câu lệnh có thể là câu lệnh đơn hay câu lệnh ghép
- Hoạt đông:
+ Kiểm tra điều kiện
+ Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp
+ Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
var i,S:integer;
begin
S:=0;
for i:=1 to 19 do if i mod 2 = 1 then S:=S+i;
writeln('S=',S);
readln
end.
S = 1 + 3 + 5 + 7 + .... + 19
Ta có :
SSH = (19 - 1) : 2 + 1 = 10 (số hạng)
Tổng = (19 + 1) x 10 : 2 = 100
Vậy tổng trên bằng 100.
* Mik mới tham gia nên mong các bn ủng hộ nhé!
