program bt;
uses crt;
var a: string;
i, x, so: byte;
begin
clrscr;
write('Nhap xau a:'); readln(a);
x:= length(a);
for i := 1 to x do if a[i] in ['0'..'9'] then so := so + 1;
writeln('Co', so ,'ki tu la so trong xau');
readln
end.
Xin câu trả lời hay nhất ạ :3
program _dem_chu_so;
var s:string;
i,d:byte;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to n do
if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu la chu so');
readln;
Vẽ cho mình sơ đồ nguyên lí và sơ đồ lắp đặt với ạ
Giải giúp e với mọi người. Thanks
Kể tên nguyên tắc tổ chức bữa ăn hợp lí
x ²-2mx-1=0 a)chứng minh pt luôn có 2 nghiệm phân biệt với mọi m b)gọi x1,x2 là 2 nghiệm phân biệt của phương trình ,tìm m để x1 ²+x2 ²-x1x2=7
Lập dàn ý chi tiết chứng minh rằng: trong cuộc sống mỗi con người cần phải trau dồi đức tính giản dị dựa vào văn bản đức tính giản dị của bác hồ, em hãy làm sáng tỏ vấn đề trên
Giải bài 4,5,6 tiếng anh (English)
cách vệ sinh tai làm nhanh nào bà con ơi
Mình chưa biết làm bài này mà chiều nay mh có bài ktra . Mong đc mn giúp đỡ . Rất cám ơn
nêu chức năng thụ nhận sóng âm viết theo sơ đồ hoặc gạch dòng
Mọi ngườii giúp em vs ạ ! Em đg cần gấp ạ ! Em cảm ơn
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
