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

Bạn viết hết đoạn chương trình đi bạn

14 tháng 3 2021

Thôi mình ko cần hỏi nữa

Bạn ơi,bạn nên viết hết đoạn chương trình đi

uses crt;

var t,v,i,tien:integer;

begin

clrscr;

write('Nhap so von la: '); readln(v);

write('Nhap lai suat:'); readln(i);

write('Nhap so tien can co la: '); readln(tien);

t:=v+v*i;

writeln('So thang la: ',(tien div t)+1);

readln;

end.

có 2 dội cờ vua A và B thi đấu với nhau. Mỗi đội cử ra n kì thủ, Mỗi kì thủ đội B chỉ đấu 1 trận và chỉ đấu với 1 kì thủ của đội A và ngược lại. Vậy có tất cả n trận đấu. Đội thắn được 2 điểm, hai đội hoà mỗi đội nhận 1 điểm còn đội nào thua là 0 điểm.Cho đội B được quyền chọn cập thi đấu.Yêu cầu:Lập trình để đội B chọn được các cập thi đấu sao cho tổng số...
Đọc tiếp

có 2 dội cờ vua A và B thi đấu với nhau. Mỗi đội cử ra n kì thủ, Mỗi kì thủ đội B chỉ đấu 1 trận và chỉ đấu với 1 kì thủ của đội A và ngược lại. Vậy có tất cả n trận đấu. Đội thắn được 2 điểm, hai đội hoà mỗi đội nhận 1 điểm còn đội nào thua là 0 điểm.

Cho đội B được quyền chọn cập thi đấu.

Yêu cầu:

Lập trình để đội B chọn được các cập thi đấu sao cho tổng số điểm của đội B là cao nhất. Cho biết trình độ của kì thủ thứ i của 2 đội A và B lần lượt là a[i] và b[i] (i=1,2,...,n) và giả sử trong thi đấu, hai kì thủ có trình độ bằng nhau sẽ hoà và kì thủ nào có trình độ cao hơn sẽ thắng.

Dữ liệu vào:

Ghi trên file văn bản CHESS.IN, gồm n+1 dòng:

-Dòng đầu ghi số nguyên dương n,1<=n<=1000.

-Trên dòng thứ i+1 (i<=i<=n) ghi hai số nguyên a[i], b[i] (1<=a[i],b[i]<=100), cách nhau 1 khoảng trắng.

Dữ liệu ra:

Ghi ra file văn bản CHESS.OUT gồm n+1 dòng:

-Dòng đầu là số nguyên T là sum max mà đội B có thể đạt được.

-Trên dòng thứ i+1 (1<=i<=n) là số nguyên dương x[i](1<=i<=n) trong đó x[i] là số thứ tự của kì thủ của đội B phải đấu với kì thủ thứ i của đội A để tổng số điểm của đội B đạt được là t.

CHESS.IN

CHESS.OUT

4

7 8

5 6

4 3

9 4

5

1

2

4

3

 

0
7 tháng 3 2021

số vòng lặp = 5

A = -15

uses crt;

var i:integer;

begin

clrscr;

i:=1;

while i<=10 do 

  begin

if i mod 2=1 then write(i:4);

i:=i+1;

end;

readln;

end.

3 tháng 3 2021

Bạn viết lại câu hỏi đc khihi

uses crt;

var i:char;

begin

clrscr;

for i:='A' to 'Z' do 

  write(i:4);

readln;

end.