trong pascal nha
giúp mình nha
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
TQ
2
30 tháng 12 2021
TK:
Vào dịp Tết năm ngoái, làng em có tổ chức hội làng. Ở đó diễn ra rất nhiều cuộc thi, trò chơi thú vị... Nhưng em cảm thấy ấn tượng nhất với cuộc thi đấu vật. Một trận đấu vật gồm có hai vận động viên. Trông họ người nào người nấy đều rất khỏe mạnh, lực lưỡng. Em có may mắn được xem trận chung kết của cuộc thi. Khi ban tổ chức thông báo bắt đầu cuộc thi, cả hai bước vào sân cúi chào khán giả. Trọng tài thổi còi và phất cờ ra hiệu trận đấu bắt đầu. Hai đô vật dùng đôi tay chắc khỏe của mình ra múa khởi động. Đôi chân không ngừng giậm nhảy, lùi trước lùi sau để thăm dò đối thủ. Tiếng trống cùng với tiếng hò reo của khán giả vang lên khiến cho không khí trở nên thật sôi động. Hai đô vật đã tiến sát lại gần nhau, hai tay giữ vào vai đối thủ. Thân hình của họ trông thật dũng mãnh. Còn gương mặt thì đã nhễ nhại mồ hôi. Thoắt cái, đô vật khăn xanh đã vật ngã được đối thủ xuống đất bằng một thế đòn hiểm. Trọng tài ra hiệu thời gian để chờ đô vật khăn đỏ đứng dậy. “Ba… hai… một… Hết giờ!” - đô vật khăn đỏ vẫn nằm dưới sàn nhà. Khán giả vỗ tay, hò hét để chúc mừng chiến thắng của đô vật khăn xanh. Trọng tài bước đến cạnh đô vật chiến thắng, rồi cầm tay họ anh giơ lên. Sau đó, cả hai đô vật đưa cánh tay vạm vỡ lau vội mồ hôi trên khuôn mặt rồi giơ tay chào kết thúc trận vật. Hội thi đấu vật thật là thú vị và hấp dẫn.
22 tháng 12 2021
a: Diện tích là:
\(S=\left(31.3+10.3\right):2\cdot\left(31.3-10.3\right):2=218.4\left(m^2\right)\)
22 tháng 12 2021
b: Diện tích phần sân còn lại là:
\(218.4\cdot60\%=131.04\left(m^2\right)\)
29 tháng 12 2021
Tục ngữ
Lên non mới biết non cao, Nuôi con mới biết công lao mẹ, thầy.Chị ngã em nâng.
4 tháng 5 2022
Tổ quốc Việt Nam giàu đẹp, tài nguyên thiên nhiên phong phú vì thế chúng ta phải có trách nhiệm khai thác hợp lí, tiết kiệm tài nguyên thiên nhiên, bảo vệ tài nguyên thiên nhiên chính là góp phần bảo vệ sự sống của chúng ta.
NK
0
GH
0
LC
1
Q
11 tháng 8 2023
Program GIAINEN;
Var s,st: string;
j,i,k,l: byte;
begin
readln(s);
while length(s)<>0 do
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then st:=st+s[i]
else if s[i] in ['1'..'9'] then break;
for i:=1 to length(s) do
if s[i] in ['2'..'9'] then
begin
val(s[i],k);
l:=i;
break;
end;
for j:=1 to k do write(st);
delete(s,1,l);
st:='';
end;
readln
end.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln((a+b)/3-5*a:4:2);
readln;
end.