Hãy đếm xem các câu sau đây có bao nhiêu từ soạn thảo. Điền đáp số vào ô bên phải.
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.
Con gà cục tác lá chanh | 6 |
Con lợn ủn ỉn mua hành cho tôi | 8 |
Ngày 10 tháng 3 | 4 |
Một trăm hai mươi nghìn chín trăm | 7 |
Con kiến mà leo cành đa | 6 |
---|---|
Leo phải cánh cụt leo ra leo vào | 8 |
Con kiến mà leo cành đào | 6 |
Leo phải cánh cụt leo vào leo ra | 8 |
Chú Cuội ngồi gốc cây đa | 6 |
Để trâu ăn lúa gọi cha ời ời | 8 |
Cha còn cắt cỏ trên trời | 6 |
Mẹ còn cưỡi ngựa đi mời quan viên | 8 |
Ông thời (2x) cắm bút, cầm nghiên | 7 |
Bà thời (2x) cầm tiền đi chuộc lá đa |
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
uses crt;
var n,i,x,d,dem:longint;
s:real;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
str(s:0:0,st);
d:=length(st);
dem:=0;
for i:=d downto 1 do
if st[i]='0' then inc(dem);
writeln(dem);
readln;
end.