Mọi người cho em hỏi để in 1 chuỗi kí tự dài ra ngay giữa màn hình có lần em thử như thế này: writeln(’____aaaaaaaaaaaaaaaa’); thì nó canh giữa màn hình nhưng rất xấu.Em nên dùng lệnh gì?
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.
Câu 21: Bạn Ngọc muốn in ra màn hình 5 chữ B và 5 chữ C trên màn hình bằng đoạn chương trình sau: For i:=1 to 5 do Writeln(‘B’); writeln(‘C’);
Theo em bạn Ngọc viết như thế nào
A. Đúng rồi
B. Phải đưa Writeln(‘B’); writeln(‘C’) vào trong cặp từ khóa Begin và End;
C. Phải đổi Writeln thành Write.
D. Phải đặt Writeln(‘B’); writeln(‘C’); trên hai dòng riêng biệt.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln(dem);
readln;
end.
"mọi người cho em hỏi là cái phần xét tỉ lệ để ra 2 muối dưới đây nó có nghĩa là gì, để làm gì thế"
=> Để tìm số muối tạo ra bn nhé :)
PTHH: NaOH + CO2 --> Na2CO3 + H2O (1)
NaOH + CO2 --> NaHCO3 (2)
Bn xét tỉ lệ \(T=\dfrac{n_{NaOH}}{n_{CO_2}}\)
Xảy ra 3 TH
+ Nếu T \(\le1\) => Ra NaHCO3 (Xảy ra pư (2) và tính số mol theo NaOH)
+ Nếu T \(\ge2\) => Ra Na2CO3 (Xảy ra pư (1) và tính số mol theo CO2)
+ Nếu 1 < T < 2 => Ra 2 muối Na2CO3, NaHCO3 (Xảy ra đồng thời (1), (2))
* Nếu nó tạo ra 2 muối thì bn có thể lm 2 cách
+ đặt ẩn, giải hệ phương trình (giống bn Kudo)
+ viết phương trình tạo muối trung hòa trước (tính số mol theo NaOH), sau đó CO2 tác dụng với muối trung hòa tạo ra muối axit (tính số mol theo CO2 còn lại)
PTHH: 2NaOH + CO2 --> Na2CO3 + H2O
Na2CO3 + CO2 + H2O --> 2NaHCO3
Còn nếu bn không thích dùng tỉ lệ thì bn cứ viết phương trình tạo muối trung hòa trước, sau đó CO2 tác dụng với muối trung hòa tạo ra muối axit thôi (đúng với mọi TH :D)
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Program HOC24;
var i,d1,d2: byte;
st1,st2: string[60];
begin
write('Nhap xau st1: '); readln(st1);
//---------------Câu 1-------------------
d1:=0; d2:=0;
for i:=1 to length(st1) do
begin
if st1[i]='A' then d1:=d1+1;
if st1[i]='a' then d2:=d2+1;
end;
writeln('Co ',d1,' ki tu A trong xau');
writeln('Co ',d2,' ki tu a trong xau');
//---------------------- Câu 2 --------------------
st2:='';
for i:=1 to length(st1) do if st1[i] in ['a'..'z'] then st2:=st2+st1[i];
writeln('Xau st2 la: ',st2);
//------------------------------Câu 3--------------------
for i:=1 to length(st1) do st1[i]:=upcase(st1[i]);
write('Xau st1 sau khi in hoa la: ',st1);
//--------------------------------------------------------
readln
end.