Những câu hỏi liên quan
Khánh Mỹ
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:42

uses crt;

var st,s:string;

    i,d,dem,kt,j,dem1:integer;

begin

clrscr;

write('Nhap xau:'); readln(s);

writeln('Xau vua nhap la: ',s);

d:=length(s);

for i:=1 to d do

  if s[i]=#32 then delete(s,i,1);

dem:=1;

st[1]:=s[1];

for i:=1 to d do

  begin

     kt:=0;

     for j:=1 to dem do

       if s[i]=st[j] then kt:=1;

     if kt=0 then

        begin

           inc(dem);

           st[dem]:=s[i];

        end;

  end;

for i:=1 to dem do

  begin

     dem1:=0;

     for j:=1 to d do

       if st[i]=s[j] then inc(dem1);

     writeln(st[i],' xuat hien ',dem1,' lan');

  end;

readln;

end.

Bé Kunz
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:24

Bài 1: 

uses crt;

var a:array[1..200]of integer;

i,n,t: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 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:25

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

scar titan
28 tháng 7 2021 lúc 10:11

python có ko bạn

 

Lò chí Quyền
Xem chi tiết
Kiều Vũ Linh
7 tháng 5 2023 lúc 12:35

Var cd,cr,cv,dt:real;

Begin

Write('Chieu dai = ');readln(cd);

Write('Chieu rong = ');readln(cr);

cv:=(cd+cr)*2;

dt:=cd*cr;

Writeln('Chu vi la ',cv:10:2);

Write('Dien tich la ',dt:10:2);

Readln

End.

Nguyễn anh quân
Xem chi tiết
Phía sau một cô gái
9 tháng 3 2023 lúc 14:17

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

NGUYỄN CHÍ tiến
9 tháng 3 2023 lúc 21:07

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

Đinh Thu Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 0:06

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int t=0;

while (n>0)

{

int x=n%10;

t=t+x;

n=n/10;

}

cout<<t;

return 0;

}

Hoàng Đào
Xem chi tiết
ttanjjiro kamado
13 tháng 2 2022 lúc 12:28

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

write('Nhap xau b:'); readln(b);

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.

Hiền Nguyễn
Xem chi tiết
Hiền Nguyễn
24 tháng 3 2021 lúc 9:08

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:16

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

Do Ngoc Thao My
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 20:15

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
end.

Trung Nguyễn
Xem chi tiết
Lê Đình Quý
16 tháng 3 2023 lúc 21:26

Program Xau;

Uses crt;

Var St: String;

    i: longint;

Begin

        Clrscr;

        Write('Nhap xau: '); Readln(St);

        For i:=1 to length(St) do

                St[i] := Upcase(St[i]);

        Write('St = ',St);

        Readln

End.

Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}