K
Khách

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.

5 tháng 3 2021

I want you to know my hometown. My hometown is Ha Noi. Now, I am living with my parents there. My hometown is very beautiful and wonderful, it has many small rivers, fields and vast expanses of green plants. And my hometown is too hot in the morning, so the nights are the good time to play.

Today, the landscape of my country have changed, it's nicer, more modern. Life is the people is raised. During the holidays, my hometown has many activities going on, many games are held for everyone. People here are very kind and friendly.

I love my hometown because it was where I was born and grew up .

My favorite place is the beach. I love it more than anyplace in the world.  l never get tired of looking at the beautiful, bright blue sea. Every time I feel sad, I drive to the ocean to enjoy the cool breeze blowing against my scarf, smell the fresh salty air, and hear the sound of waves crashing on the shore. Afterwards, I feel like my troubles have gone away. My friends and I also love to go on picnics on the beach. We bring lots of food such as tuna sandwiches, juice, and pizza. We play volley-ball in the sand and when we get tired, we jump in the sea. It is always a lot of fun. Many of my best memories are the times that I had by the beach in my hometown. I will go back again one day.

bn tham khảo nha

Write: Xuất dữ liệu ra màn hình hoặc ra file

 

Read: Nhập dữ liệu từ bàn phím hoặc từ File

  

for i:=1 to 50 do write('*');

5 tháng 1 2022

cảm ơn mn nhiều

Câu 1: Để in ra màn hình 2 dòng chữ như sau, thì thực hiện đoạn lệnh nào?          An qua nho ke trong cay          An gao nho ke dam, say, dan, sang.A) Writeln(‘An qua nho ke trong cay’);     Write(‘An gao nho ke dam, say, dan, sang.’);B) Write(‘An qua nho ke trong cay’);     Writeln(‘An gao nho ke dam, say, dan, sang.’);C) Write(‘An qua nho ke trong cay’);     Write(‘An gao nho ke dam, say, dan, sang.’);D) Tất cả đều đúng.Câu 2: Giả sử có khai báo sau,          Var...
Đọc tiếp

Câu 1: Để in ra màn hình 2 dòng chữ như sau, thì thực hiện đoạn lệnh nào?

          An qua nho ke trong cay

          An gao nho ke dam, say, dan, sang.

A) Writeln(‘An qua nho ke trong cay’);

     Write(‘An gao nho ke dam, say, dan, sang.’);

B) Write(‘An qua nho ke trong cay’);

     Writeln(‘An gao nho ke dam, say, dan, sang.’);

C) Write(‘An qua nho ke trong cay’);

     Write(‘An gao nho ke dam, say, dan, sang.’);

D) Tất cả đều đúng.

Câu 2: Giả sử có khai báo sau,

          Var a,b:integer;

                 tinh:real;

thì phép gán nào là hợp lệ?

A) a:=5.3;   B) b:= 3.0;            C) tinh:=2;            D) a:=b+tinh;

Câu 3: Giả sử có khai báo sau,

          Var X, Y, Z:integer;

Và có giá trị lần lượt là X:= 2; Y:= 6; Z:= 3;

Thì phép gán nào dưới đây không hợp lệ?

A) X:= Y + Z;       B) X:= Y –Z;        C) X:= Y*Z;          D) X:= Y/Z;

Câu 4: X có kết quả bao nhiêu sau khi thực hiện đoạn lệnh sau:

Y:= 345;

X:= Y mod 10 + Y div 10 + Y div 100;

A) 5            B) 42          C) 12          D) 39

Câu 5: Để chạy chương trình, sử dụng tổ hợp phím nào?

A) Alt + F9           B) Ctrl + F9                   C) Alt + F5           D) F9

Câu 6:  Điều kiện sau là đúng hay sai?

X:=6;

 If X mod 2 = 3 then

X:=6;

A. Đúng               B. Sai

Câu 7: Điều kiện sau là đúng hay sai?

X:=7;

   If (X mod 3 =1)  and (X div 5 =1) then

          X:=7;

A. Đúng               B. Sai

Câu 8: Điều kiện sau là đúng hay sai?

X:=4; Y:=3;

   If ((X=Y)  Or (X<0)) And (Y>X) then

          Y:=3;

A. Đúng               B. Sai

Câu 9: X có giá trị bao nhiêu sau khi thực hiện đoạn lệnh sau?

  X:=3;

If X>0 then X:=X-1;

If X>1 then X:=X+2;

A. 2            B. 3             C.4              D. 5

Câu 10: X có giá trị bao nhiêu sau khi thực hiện đoạn lệnh sau?

X:=7; Y:=3;

If X mod 3= Y then X:=X-Y

          Else   X:=X+Y;

If X<Y then X:=Y-X

          Else

                   X:=X+X;

A.     0                B. 6             C. -7           D. 20

1
Mọi người giúp em với :< Câu 1: Để in ra màn hình các số nguyên từ 1 đến 10, câu lệnh nào dưới đây đúng? a. For i:=10 to 1 do write(i); b. For i:=1 to 10 do write('i':2); c. For i:=0 to 10 do write(i); d. For i:=1 to 10 do write(i:2); Câu 2: Cho biết số lần lặp của đoạn chương trình sau: For i:=-1 to 1 do write(i); a. 0 b. 1 c. 2 d. Không xác định Câu 3: Cho biết kết quả của đoạn chương trình sau: S:=0; for i:=1 to 100 do if (i...
Đọc tiếp

Mọi người giúp em với :<

Câu 1: Để in ra màn hình các số nguyên từ 1 đến 10, câu lệnh nào dưới đây đúng?

a. For i:=10 to 1 do write(i);

b. For i:=1 to 10 do write('i':2);

c. For i:=0 to 10 do write(i);

d. For i:=1 to 10 do write(i:2);

Câu 2: Cho biết số lần lặp của đoạn chương trình sau: For i:=-1 to 1 do write(i);

a. 0

b. 1

c. 2

d. Không xác định

Câu 3: Cho biết kết quả của đoạn chương trình sau: S:=0; for i:=1 to 100 do if (i mod 2=0) then write(i:2);

a. In ra màn hình các số nguyên từ 1 đến 100

b. In ra màn hình các số nguyên dương nhỏ hơn 100

c. In ra màn hình các số nguyên lẻ nhỏ hơn 100

d. In ra màn hình các số nguyên chẳn có giá trị nằm trong khoảng 2 đến 100

Câu 4: Sử dụng câu lệnh lặp để in ra màn hình tổng các số nguyên dương lẻ nhỏ hơn 100 (lưu ý: chỉ cần viết lệnh không cần viết thành chương trình hoàn chỉnh)

1

Câu 1: D

Câu 2: D

Câu 3: D

Câu 4:

t:=0;

for i:=1 to 100 do

if i mod 2=1 then t:=t+i;

writeln(t);

11 tháng 4 2020

câu cuối mình gửi lên cô cho sai bạn :<

 cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10Đáp án của bạn:ABCDCâu 02:Câu lệnh nào sau đây viết đúngA. While a<b do a=a+1;B. White a<b do a:=a+1;C. While a< b do a:=a+1;D. while a< b do ; a:=a+1Đáp án của bạn:ABCDCâu 03:kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?A. 8B. 2C. 6D. 4Đáp...
Đọc tiếp

 

cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10

Đáp án của bạn:

ABCD

Câu 02:

Câu lệnh nào sau đây viết đúngA. While a<b do a=a+1;B. White a<b do a:=a+1;C. While a< b do a:=a+1;D. while a< b do ; a:=a+1

Đáp án của bạn:

ABCD

Câu 03:

kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?A. 8B. 2C. 6D. 4

Đáp án của bạn:

ABCD

Câu 04:

Đoạn chương trình nào sau không bị lỗiA. For i:=1 to n do x:=x+1B. For i=1 to n do x:=x+1;C. For i:=1 to n do x=x+1;D. For i:=1 to n do x:=x+1;

Đáp án của bạn:

ABCD

Câu 05:

với a:=5; b:=6 ; ta có while b> a do b:=b+1;A. lặp vô hạnB. 1000C. 1000000D. 7

Đáp án của bạn:

ABCD

Câu 06:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+i;A. 15B. 5C. 0D. 20

Đáp án của bạn:

ABCD

Câu 07:

Cú pháp câu lệnh lặp biết trướcA. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do;B. For < biến đếm> = < giá trị đầu> to < giá trị cuối> doC. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> doD. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do

Đáp án của bạn:

ABCD

Câu 08:

với d:=0; while d<n do    begin d:=d+1;     if d mod 10=0 then n:=n+3;    end; wrtite(n);  Với  n=10 thì cho kết quả cuối cùng của n là bao nhiêu?

 

A. 11B. 12C. 10D. 13

Đáp án của bạn:

ABCD

Câu 09:

Cho đoạn chương trình a:=3; b:=2; while b< a do b:=b+1; kết quả của a,b sau khi kết thúc lặp làA. 3,4B. 3,3C. 2,3D. 3,2

Đáp án của bạn:

ABCD

Câu 10:

Cú pháp câu lệnh lặp chưa biết trướcA. While < điều kiện > doB. White < phép gán> do;C. While < điều kiện> do ;D. White < phép gán> do

Đáp án của bạn:

ABCD

Câu 11:

Cho đoạn chương trình a=3; b:=2; while b< a do b:=a; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,4C. 3,3D. 3,2

Đáp án của bạn:

ABCD

Câu 12:

Câu lệnh ghép là câu lệnh đặt giữa từ khóaA. begin;… end.B. Begin … end;C. Begin .. end.D. begin.. readln.

Đáp án của bạn:

ABCD

Câu 13:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+1;A. 15B. 5C. 20D. 0

Đáp án của bạn:

ABCD

Câu 14:

kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 2; b=5 thì “ kq “ bằng bao nhiêu?A. 2B. 4C. 3D. 1

Đáp án của bạn:

ABCD

Câu 15:

Đoạn chương trình nào sau không bị lỗiA. For i:=10 to 1 do x:=x+1;B. For i:=1 to 10 do x = x+1;C. for i:=1 to 10 do x:=x+1D. For i:=10 to 1 do x:=x+1

Đáp án của bạn:

ABCD

Câu 16:

Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=5 to 1 do x:=x+i;A. 5B. 20C. 15D. 0

Đáp án của bạn:

ABCD

Câu 17:

for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =6 thì kết quả s là?A. 15B. 0C. 21D. 5

Đáp án của bạn:

ABCD

Câu 18:

cho đoạn chương trình sau a:=1; while a<10 do begin write ( a); a:=a+1; end;
Hãy cho biết kết quả của a bằng bao nhiêu?A. In ra từ 1 đến 10B. In ra 10C. In ra từ 1 đến 9D. lặp vô hạn

Đáp án của bạn:

ABCD

Câu 19:

s:= 0; for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =5 thì kết quả s là?A. 15B. 1C. 5D. 0

Đáp án của bạn:

ABCD

Câu 20:

Cho đoạn chương trình a:=3; b:=2; while b< a do begin b:=a; a:=b end; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,3C. 3,2D. 3,4
2
8 tháng 3 2022

giúp mình vs ạ