viết bằng pascal nhé giúp mình với, mình cần gấp!!
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.
Những câu hỏi liên quan
TP
28 tháng 7 2018
Dear (Name),
I have received your letter and I feel so glad when knowing that you had passed your examinations with good marks. You want me to tell you about my own family. I got married eight years ago. And now I have two sons, they are very studious, my first son is five years old. His name is Khanh. My second son is 3 years old, his name is khiem. My wife is an accountant, She is 35 years old, her name is Doan. My family lives in a small house in thai nguyen city. At the weekend, my family often goes to visit our parents. Sometimes, we stay at home and clean the house. Now I am preparing for my master entrance examination.it is very hard for me but I try my best, to pass the exam.
I have told you something about my own family life. How about your family life? Are you ready to let me know about it? I am really excited to hear about it.
Best wishes to you,
(Name)
chúc bn học giỏi
28 tháng 7 2018
Dear Huyen
Today I want to tell you about my house
My house is located in a small quiet alley. That’s a pretty pink house which consists of 6 rooms in totally: a living room, a kitchen, a toilet, a bathroom and two bedrooms. There are a white leather sofa, a television and a sideboard in the living room. After dinner, my father will turn on the television, choose a great movie and we watch it happily. Next to the living room is the kitchen where is used for cooking and enjoying the meals. In the middle of the room is a dinner table which is made from wood. Three cookers, a refrigerator and all the neccesary stuff for cooking is arranged carefully in the right corner of the room. In the left of the kitchen is a clean toilet. Beside the toilet is the bathroom which is equipped a shower and a bathtub. There are only two rooms upstairs that is my parents’ room and my private room. I’ve decorated my bedroom with adorable wallpaper and many lovely stuffed animals. A single bed is placed next to the window so that I can stargaze before falling asleep. In the opposite of the bed are my desk and my bookshelf that contain many kinds of book. There are also an old television and a piano in my bedroom. I especially love the piano because that was the gift from dad in my birthday. In every Christmas or Tet holiday, all member of my family ornament the house together and then gather in the kitchen to cooking. Although my house is not too big but to me that is the most beautiful house in the world.
Best wishes
Your friend,
( Name )
29 tháng 1 2021
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
for i:=1 to d do
begin
while (st[i]=#32) and (st[i+1]=#32) do
begin
delete(st,i,1);
d:=length(st);
end;
end;
st[1]:=upcase(st[1]);
for i:=1 to d do
if st[i]=#32 then st[i+1]:=upcase(st[i+1]);
writeln('Ten cua ban sau khi viet dung la: ',st);
dem:=1;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('So tu cua xau la: ',dem);
readln;
end.
23 tháng 7 2019
Hello everybody, my name is ....... Today, I will tell you about my family. My family has 7 people. It's my aunt, my father, my mother, my brothers, my sister, and me. My aunt's name is Le Thuy Muoi. She is 56 years old. She is a worker in a small factory next to my house. Her hobby is watching Tv. H
HL
5 tháng 9 2021
My name is Quang, and I am the only son in my family. I am a 4th – year law student, and I am currently studying in Ho Chi Minh City. My little family has four people, and we live in Vinh Long province. The house is always filled with my dad’s laughter, my mother’s warm voice and my sister’s playfulness.
My father is a retired police officer, and he is working as a defense education teacher in our local high school. Perhaps he had to due with years of hard training in the military; my father is finally comfortable to show his humor in the teaching environment. In the first look, he is a tough man; but actually he is very emotional and funny. Dad is a solid pillar and a great spiritual supporter for the whole family.
Un him, my mother is a gentle but strict woman. many other women, my mother always takes care and sacrifices the best things for us. She is both our close friends and tutor in study and some private problems.
My sister is going to be a high school student soon. She is doing very well at school, and she is always rewarded by the school. She starts to look a mature girl, un the little monkey that always sks to me the previous years.
This summer I cannot go home to visit my family and play with my sister because I am about to graduate. I miss them a lot, and I hope that all will be over soon so I can return home and work near my beloved family.
Dịch:
Tôi tên là Quang, và tôi là đứa con trai duy nhất của gia đình. Tôi đang là sinh viên năm 4 chuyên ngành luật, và hiện tôi đang học tại Thành Phố Hồ Chí Minh. Gia đình nhỏ của tôi gồm bốn người hiện đang sống tại tỉnh Vĩnh Long. Ngôi nhà lúc nào cũng ngập tràn tiếng cười của bố, giọng nói ấm áp của mẹ và tiếng đùa nghịch của em gái tôi.
Bố tôi là công an về hưu, ông đang dạy giáo dục quốc phòng trong một trường cấp 3. Có lẽ vì phải trải qua những năm tháng rèn luyện nghiêm khắc trong quân ngũ, bây giờ bố tôi mới được thoải mái bộc lộ tính hài hước của mình trong môi trường dạy học. Nhìn bề ngoài, bố là người cứng rắn nhưng bên trọng lại sống rất tình cảm và vui vẻ. Bố là trụ cột vững chắc và là điểm tựa tinh thần lớn lao cho cả gia đình.
Khác với bố, mẹ tôi là người phụ nữ dịu dàng nhưng có phần nghiêm khắc. Như rất nhiều người phụ nữ khác, mẹ tôi luôn quan tâm và hi sinh những điều tốt nhất cho anh em tôi. Với chúng tôi, mẹ vừa là người bạn thân vừa là người dẫn dắt trong học tập và cả những chuyện riêng tư.
Em gái tôi chuẩn bị vào cấp 3. Cô bé học rất giỏi và luôn được nhà trường khen thưởng. Nó đã bắt đầu ra dáng một thiếu nữ chứ không còn như một con khỉ nhỏ luôn bám lấy tôi như những năm trước.
Hè năm nay tôi không về nhà để thăm gia đình và chơi với em gái được vì tôi chuẩn bị tốt nghiệp .Tôi rất nhớ nhà và mong tất cả sẽ sớm kết thúc để tôi có thể trở về quê và làm việc ở gần gia đình thân yêu của tôi.
21 tháng 1 2016
a, 2/6 ; 3/9 ; 4/12 ; 5/15 ; 6/18
b, 1/2;2/4;3/6;4/8;5/10
Tick nha!!
C
17 tháng 12 2023
12,12 x 7,5 + 12,12 : 2 + 12,12 + 12,12
= 12,12 x 7,5 + 12,12 x 0,5 + 12,12 x 1 + 12,12 x 1
= 12,12 x (7,5 + 0,5 + 1 + 1)
= 12,12 x 10
= 121,2
ML
13 tháng 3 2021
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
13 tháng 3 2021
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
S
3
7 tháng 4 2021
Lâu rồi ko lên hoc24, vừa lên thấy bài hay ngay mới hay chứ
Thuật toán:
t=1 thì ko nói rồi do dễ quá
Khi t=2 thì ta có 2 biến dem0 và dem1 để giữ số các số 0 và 1
Nếu dem1<vt cần tìm thì số đó ko thể là số 1=>writeln(0)
Ngược lại thì số đó là 1=>writeln(1)
Code:
Program kth;
uses crt;
var n,i,t,x,q,dem1,dem0:integer;
a:array[1..100000] of Byte;
f1,f2:text;
Begin
clrscr;
assign(f1,'kth.inp'); reset(f1);
assign(f2,'kth.out'); rewrite(f2);
read(f1,n,q);
for i:=1 to n do
begin
read(f1,a[i]);
dem1:=dem1+ord(a[i]=1);
dem0:=dem0+ord(a[i]=0);
end;
for i:=1 to q do
begin
read(f1,t,x);
case t of
1:begin
if a[x]=1 then
begin
dec(dem1); inc(dem0);
end
else
begin
inc(dem1); dec(dem0);
end;
a[x]:=1-a[x];
end;
2:writeln(f2,1*ord(dem1>=x)+0*ord(dem1<x));
end;
end;
Close(f1);
close(f2);
End.
*Note:ord(bool) giống như khi làm trong C++,tức:
-Khi bool=true thì ra 1
-Khi bool=false thì ra 0
Program HOC24;
var t,n,s,d: integer;
begin
d:=1; s:=1; t:=0;
while d<100 do
begin
t:=t+2;
s:=s+t;
d:=d+1;
end;
write(s);
readln
end.