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.

6 tháng 1

#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.

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. 

15 tháng 1 2021

Bạn ơi cho mình hỏi sao bạn còn thiếu chỗ câu c hay sao?Hình như bạn chưa làm câu c  đúng không ạ.

4 tháng 8 2023

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)

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d;

int main()

{

getline(cin,st);

d=st.length();

cout<<d;

return 0;

}

19 tháng 1 2022

Bài 1:

Var so,i,n,dem:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

8 tháng 8 2023

def tach_chuoi(chuoi):

     ky_tu_so = " "

     ky_tu_chu = " "

     for ky_tu in chuoi:

          if ky_tu.isdigit():

               ky_tu_so += ky_tu

          elif ky_tu.isalpha():

               ky_tu_chu += ky_tu

     return ky_tu_so, ky_tu_chu

chuoi = input("Nhập vào một chuỗi: ")

ky_tu_so, ky_tu_chu = tach_chuoi(chuoi)

print("Các ký tự số trong chuỗi:", ky_tu_so)

print("Các ký tự chữ cái trong chuỗi:", ky_tu_chu)

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...
Đọc tiếp

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:)

1

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.