program chu_so;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then write(s[i]);
readln;
end.
Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte;
i:Byte;
ch:Char;
Begin
Write(‘Nhap xau St: ‘); Readln(St);
{Khởi tạo mảng}
For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu}
For i:=1 To Length(St) Do
If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình}
For ch:=’A’ To ‘Z’ Do
If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
End.
giúp em với nếu tính diện tích hình trong thiếu bán kính mà nó nói là chu vi giúp mk nhé
làm hộ mình với mình đang cần 🤔🤔🤔🤔🤔
Dựa vào đâu người ta chia ra các khối khí :nóng,lạnh, đại dương và Lục địa.
số liệu thường ghi trên thiết bị đóng cắt mạch điện là gì ?
có mấy loại diện tích? nêu quy ước diện tích đưa một thước dẫn điện âm lại gần một thanh thủy tinhsau khi đã cọ sát vào lọ thì có hiện tuongj j xảy ra .giải thích giúp mik với
nêu ví dụ về : phát tán nhờ nước của động vật
7/9-2/9.x=4/3 trả lời giúp mk nha
Câu1:Nêu ý nghĩa dạng sang hô đối với môi trường biển Câu2:Hãy giải thích tác hại giảm số lượng mèo nuôi và rắn trong tự nhiên
giúp mik vẽ hình luôn mik cảm ơn
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
