nhập vào 1 xâu bất kì .tính tổng các số trong xâu
Những câu hỏi liên quan
a. Viết chương trình nhập vào 1 xâu bất kì xuất ra độ dài cùa xâu và số kí tự trống.
b. Viết chương trình nhập vào một xâu bất kì xuất ra xâu đảo ngược
c.Viết chương trình nhập vào một xâu bất kì xuất ra xâu có là xâu đối xứng hay không đối xứng
d. Viết chương trình nhập vào một xâu bất kì xuất ra xâu viết in hoa tất cả
Nhập vào 1 xâu bất kì , in ra màn hình 2 sâu Xâu 1 các chữ số Xâu 2 các chữ cái
Nhập vào 1 xâu bất kì , đưa ra màn hình xâu gồm tất cả các kí tự không phải chữ số
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập xâu bất kì từ bàn phím. Đếm các kí tự số trong xâu vừa nhập
Program HOC24;
var i,d: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu so trong xau');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 xâu bất kì a) thông báo ra màn hình số lượng dấu cách có trong xâu b) thay tất cả dấu cách có trong xâu thành dấu gạch nối c) in ra xâu ngược lại
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(100) .tính và đưa ra màn hình Xâu đó sau khi xoá sốTrong xâu có bao nhiêu dấu cáchĐưa ra màn hình độ dài xâu đóCâu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Đọc tiếp
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Đúng 2
Bình luận (1)
Câu 2:
uses crt;
const fi='kq.out'
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
Đúng 1
Bình luận (0)
Câu 3:
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('Trung binh cong cac so chan la: ',t/dem:4:2);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 xâu bất kì, xuất ra màn hình số lượng kí tự trong xâu đã nhập.
mọi người giúp mk bài này với.
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;
Đúng 1
Bình luận (0)
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình C++ nhập vào 1 xâu A bất kì và một xâu B a) kiểm tra xem xâu B có trong xâu A không b)Nếu có thì thay thế tất cả các xâu B trong A bằng xâu "ABC".In ra màn hình dòng thứ nhất là kết quả của câu a, dòng thứ hai là kết quả của xâu sau khi thay thế.
#include <bits/stdc++.h>
using namespace std;
string a,b;
void replaceSubstring(string& a, const string& b) {
size_t pos=0;
while((pos=a.find(b,pos))!=string::npos) {
a.replace(pos,b.length(),"ABC");
pos+=3;
}
}
int main()
{
cin>>a>>b;
if(a.find(b)!=string::npos){
cout<<"YES"<<endl;
replaceSubstring(a,b);
cout<<a;
}else{
cout<<"NO"<<endl;
cout<<a;
}
return 0;
}
Đúng 1
Bình luận (0)
Bài 1: Nhập vào một xâu các số nguyên hoặc số thực từ bàn phím cách nhau bởi dấu cách. Tính tổng, trung bình các số vừa nhập trong xâu đó.
Python:
n = [float(i) for i in input("Nhập vào một xâu: ").split()]
tong = sum(n)
TB = tong / len(n)
print("Tổng các số trong xâu là: ", tong)
print("Trung bình các số trong xâu là: ", TB)
Pascal:
program tinh_tong_trungbinh;
var
input_string: string;
numbers: array of real;
i, n: integer;
sum, average: real;
begin
write('Nhập vào một xâu: ');
readln(input_string);
// Tách chuỗi thành danh sách các số
n := 0;
for i := 1 to length(input_string) do
begin
if (input_string[i] in ['0'..'9', '.', '-']) then
begin
if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
n := n + 1;
end;
end;
SetLength(numbers, n);
n := 0;
for i := 1 to length(input_string) do
begin
if (input_string[i] in ['0'..'9', '.', '-']) then
begin
if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
begin
val(copy(input_string, i, length(input_string) - i + 1), numbers[n], i);
n := n + 1;
end;
end;
end;
// Tính tổng và trung bình
sum := 0;
for i := 0 to n - 1 do
sum := sum + numbers[i];
if (n > 0) then
begin
average := sum / n;
// Hiển thị kết quả
writeln('Tổng: ', sum:0:2);
writeln('Trung bình: ', average:0:2);
end
else
writeln('Không có số hợp lệ để tính toán');
readln;
end.
Đúng 0
Bình luận (0)
20 tháng 4 2022 lúc 12:43
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301