Nhập vào một chuỗi S bao gồm cả kí tự số và chữ. Đếm xem trong chuỗi S có bao nhiêu số chia hết cho 5 và in các số đó ra.VD: Nhập S= ‘asg35gds67gdgf345hh’
- Có 2 số chia hết cho 5 là: 35, 345
làm bằng pascal nha mn giúp mình. Mình cảm ơn!
viết chương trình nhập vào chuỗi S a)Đếm xem trong chuỗi có bao nhiêu kí tự b)xuất ra chuỗi đảo c)xóa kí tự trắng dư thừa trong xâu d) đếm các chữ số trong xâu
mong các bạn giúp mình với.
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
VCT nhập vào 1 mảng số. Hãy:
a)Tính tổng các số chia hết cho 3 và 6
b)In ra các số lớn hơn 3
c) In mảng đã nhập vào
d) Đếm xem có bao nhiêu chứ số lẻ nhập vào chia hết cho 5. In đếm
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;
for i:=1 to n do
if a[i] mod 6=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 3 va 6 la: ',t);
for i:=1 to n do
if a[i]>3 then write(a[i]:4);
writeln;
for i:=1 to n do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then inc(dem);
writeln(dem);
readln;
end.
Câu 1:
Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:
a. Trong chuỗi kí tự có bao nhiêu kí tự số?
b. Tính tổng các chữ số.
c. Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.
- Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.
- Dữ liệu vào: Nhập từ bàn phím gồm một dòng ghi chuỗi kí tự S (có độ dài không quá 255 ký tự). Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra
- Kết quả: In ra màn hình theo cấu trúc sau:
+ Dòng 1: Ghi có bao nhiêu kí tự số
+ Dòng 2: Ghi tổng các chữ số
+ Dòng 3: Ghi tất cả các kí tự chữ cái trong chuỗi
Câu 2:
Một dãy số gồm N số nguyên dương . Tính tổng các phần tử có trong dãy số, in ra số lần xuất hiện các phần tử có trong dãy số.
- Yêu cầu: Cho một dãy số gồm N số nguyên dương. Hãy thực hiện các yêu cầu trên. Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra
- Dữ liệu vào: Nhập từ bàn phím có dạng như sau:
+ Dòng 1: Ghi số nguyên dương N (1≤N≤100000)
+ Dòng 2: Ghi dãy N số nguyên dương a1, a2,..., an (1≤ai≤1000,i=1..n)
- Kết quả: In ra màn hình theo cấu trúc sau:
+ Dòng 1: In ra tổng các phần tử trong dãy số.
+ Dòng tiếp theo: In ra phần tử và số lần xuất hiện của nó.
Giúp mik với, mik đang mắc!!!làm bằng pascal nhé, nặng cũng đc, máy mik intel i9 12900k và rtx 3090 nhé :) mới mua vài hôm trước:)
Câu 2:
uses crt;
var a,b:array[1..100]of integer;
i,n,t,dem,j,kt,dem1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if a[j]=b[i] then inc(dem1);
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Câu 1:
Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:
a. Trong chuỗi kí tự có bao nhiêu kí tự số?
b. Tính tổng các chữ số.
c. Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.
- Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.
- Dữ liệu vào: Cho từ tệp văn bản có tên XAU.INP gồm một dòng ghi chuỗi kí tự S (có độ dài không quá 255 ký tự). Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra
- Kết quả: Ghi ra tệp văn bản có tên XAU.OUT theo cấu trúc sau:
+ Dòng 1: Ghi có bao nhiêu kí tự số
+ Dòng 2: Ghi tổng các chữ số
+ Dòng 3: Ghi tất cả các kí tự chữ cái trong chuỗi
Ví dụ:
XAU.INP | XAU.OUT |
Ky2thichon5hoc5sinhgioi3lop719 | 7 32 Kythichonhocsinhgioilop |
Giúp mik với, đúng mik cho 1 like nhé và bằng pascal nhé !!!
Viết chương trình nhập vào một văn bản là một chuỗi kí tự bao gồm chữ cái và chữ số. Loại bỏ các chữ số trong chuỗi ký tự đó.
#include <bits/stdc++.h>
using namespace std;
int main() {
string str;
getline(cin, str);
string ans = "";
for (char c : str) {
if (!isdigit(c)) {
ans += c;
}
}
cout <<ans;
}
Theo mk là như v
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Nhập vào một chuỗi, hãy đếm xem trong chuỗi có bao nhiêu từ (quy định là chuỗi không có ký tự đặc biệt, không số, không có dấu câu, chỉ có ký tự chữ và khoảng trắng) lập trình Python
def dem_so_tu(chuoi):
dem = 0
tu = chuoi.split()
for word in tu:
if word.isalpha():
dem += 1
return dem
chuoi = input("Nhập một chuỗi: ")
so_tu = dem_so_tu(chuoi)
print("Số từ trong chuỗi là:", so_tu)
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"
Cho 1 mảng B gồm n số nguyên (0<N<200)
(đếm xem có bao nhiêu số lẻ vừa nhập vào mảng
Tính trung bình cộng các số lẻ vừa nhập
Kiểm tra xem có bao nhiêu số vừa chia hết cho 3 và chia hết cho 5
Giúp em với mng