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.
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Câu 2:
uses crt;
const fi='kq.out';
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
a)
- (chở, trò) : trò chuyện, che chở
- (trắng, chăm) : trắng tinh, chăm chỉ
b)
- (gổ, gỗ) : cây gỗ, gây gổ
- (mỡ, mở) : màu mỡ, cửa mở
writeln('chao cac ban');
readln;