Câu 23. Trong bảng tính Excel, ô A1 chứa nội dung “TTTH ĐHKHTN”. Khi thực hiện công thức = LEN(A1)
thì giá trị trả về kết quả:
a) 6
b) 11
c) 5
d) 0
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.
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while length(s)=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
d:=0;
for i:=1 to length(s) do if s[i]=#32 then d:=d+1;
write('Trong xau co ',d+1, ' tu');
readln
end.
Đổi 4TB=4096
Số giờ có thể xem phim là:
4096:5=819,2(h)
Số bộ phim có thể xem đc là:
819,2:2,5=327,68(bộ)
Đ/S:........
Program HOC24;
var i,n: integer;
a: array[1..10000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
write('Tong la: ',t);
readln
end.