For i:=1 to 6 do write(i:3);
a) Số vòng lặp trong câu lệnh trên là bao nhiêu?
b) Kết thúc vòng lặp giá trị của i là bao nhiêu?
c) Cho biết kết quả của câu lệnh trên?
Những câu hỏi liên quan
1.
For I 2 to 12 Do write (O), câu lệnh in ra bao nhiêu chữ O?
2.
For I 1 to 20 Do If (...) Then write (I,);
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I 1 to 100 Do S:......
... cần điền?
4.
S;0; For I:4 to 12 Do If (I mod 121) Then S:S +I;
giá trị của S?
5.
S;0; For I:1 to 5 Do S:S +I;
giá trị của S?
6.
For I 1 to 10 Do If (I mod 3 0) Then write (I,);
kết quả?
7.
a: 354 If (a mod 3 0) them write (a...
Đọc tiếp
1.
For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O?
2.
For I = 1 to 20 Do If (...) Then write (I,'');
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=......
... cần điền?
4.
S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I;
giá trị của S?
5.
S;=0; For I:=1 to 5 Do S:=S +I;
giá trị của S?
6.
For I = 1 to 10 Do If (I mod 3 = 0) Then write (I,'');
kết quả?
7.
a:= 354 If (a mod 3 = 0) them write (a mod 3) Else Write (a Div 3);
kết quả?
8.
để in ra màn hình 20 chữ C cần thực hiện?
1) 11
2) I mod 2=1
3) S+i;
4) 0
5) 15
6) 3 6 9
7) 0
8) for i:=1 to 20 do write('C');
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n ’); readln(n);
For i:1 to n do
Begin
Write(‘a[‘,i,’]’); readln(a[i]);
End;
s:0;
for i:1 to n do
if (a[i]mod 21) then s:s+a[i];
write(‘tong so le ’,s);
d:0;
for i:1 to n do
if (a[i]mod 30) then d:d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:1 to n do b[i]:2*a[i];
For i:1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với...
Đọc tiếp
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);
d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé
Đúng 0
Bình luận (0)
Các câu lệnh lặp sau đây đúng hay sai? Sửa lại cho đúng?
a/ For i:= 10 to 1 do write ('a');
b/ For i:= 1 to 10 do write ('a');
c/ For i:= 1 to 10 do write ('a');write ('b');
a) sai:
sửa: for i:=1 to 10 do write('a');
b) Đúng
c) Đúng
Đúng 1
Bình luận (0)
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Đúng 0
Bình luận (0)
Trong bài học câu lệnh in ra màn hình 50 dấu sao là: *
1 điểm
for i:= 1 to 50 do writeln(‘*’);
for i:= 1 to 50 do write(‘*’);
for j:= 1 to 50 do write(‘*’);
for j:= 0 to 50 do write(‘*’);
Xem chi tiết
for i:=1 to 50 do write('*');
Câu lệnh nào sai và sai ở đâu:
a. for i:=10 to 2 do write (A);
b. for i:=15 to 5 do write (A);
c. while (n mod 2<>0) do i:= 1+1
a) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy
Đúng 1
Bình luận (0)
Cho biết kết quả câu lệnh sau: For i:=1 to 10 do if i mod 2=0 then write(i:4); *
a.1 2 3 4 5 6 7 8 9 10
b.2 4 6 8 10
c.1 3 5 7 9
d.4 8
Để in các phần tử của mảng A, ta có thể sử dụng đoạn chương trình nào sau đây?
A. for i := 1 to n do write(a[i]:5);
B. for i := n downto 1 do readln(i);
C. for i := 1 to n do write(i:5);
D. for i := 1 to n do readln(a[i]);
A mới đúng nhé bạn
in ra thì phải write(a[i]:5) mới đúng
D là nhập rồi nhé bạn
Đúng 0
Bình luận (0)
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?a) For i:10 to 1 do write(a);b) For i:1 to 10 do write(a);c) For i:1 to 10 do write(a); write(b);Bài 3: For i:1 to n do readln(a); lặp mấy lần?Bài 4: Cho đoạn chương trình sau: S:0; For i: 1 to 5 do S:S+i; Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên. Làm nhanh nhanh giúp em nha mấy a...
Đọc tiếp
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?
Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?
a) For i:=10 to 1 do write('a');
b) For i:=1 to 10 do write('a');
c) For i:=1 to 10 do write('a'); write('b');
Bài 3: For i:=1 to n do readln(a); lặp mấy lần?
Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;
Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?
Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.
Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha. :))
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Đúng 2
Bình luận (2)
Để in ra màn hình giá trị từ một đến 10 của biến điểm y, ta sử dụng câu lệnh: a for I :=1 to 10 writeln (‘I’) b for I:= 1 to 10 do writeln (I ); c for I: = 1 to n do writeln ( I ) ; d for I: = 10 downto 1 do write (I);
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