Viết chương trình nhập vào một xâu. Đếm trong xâu có bao nhiêu từ
K
Khách
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.
16 tháng 3 2023
Đổ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:........
TT
0
TN
8
ML
14 tháng 3 2023
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.
NT
16 tháng 3 2023
A = int(input('N = '))
if (A >= 0) and (A <= 10**3):
i = 0
tong = 0
print (i)
while (i <= 10**3):
i += 1
if (i%3==0) and (i%5==0):
if (i <= A):
tong += i
print (i)
print (f'Tổng: {tong}')
TN
0
PT
0
PT
2
HN
0
NT
12 tháng 3 2023
Đặt con trỏ chuột ở 1 chỗ bất kỳ trong trang Word > Nhấn chọn thẻ Layout > Ở mục Page Setup > Chọn Orientation > Chọn Landscape.
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.