Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Mai Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 21:26

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<"Chao cac ban"<<endl;

cout<<"Minh ten la:"<<endl;

cout<<"Minh hoc lop:";

return 0;

}

Mai Phương
4 tháng 12 2021 lúc 10:01

program XinChao;

uses crt;

begin

Clrscr;

writeln ('Chao cac ban!');

writeln('Minh ten la Nguyen Mai Phuong ');

writeln('Minh hoc lop 8A4');

readln;

end.

đáp án nha

Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 13:30

uses crt;

var st:string;

a:array[1..255]of string;

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

begin

clrscr;

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

d:=length(st);

a[1]:=st[1];

dem:=1;

for i:=1 to d do 

  begin

kt:=0;

for j:=1 to dem do 

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

if kt=0 then 

begin

inc(dem);

a[dem]:=st[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to d do 

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

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

end;

readln;

end.

Nguyễn Quốc Anh
27 tháng 2 2023 lúc 23:28

uses crt;

var a:string;

     c:char;

     i,dem:integer;

begin

    clrscr;

    readln(a);

    readln(c);

    dem:=0;

    for i:=1 to length(a) do

    if a[i]=c then dem:=dem+1;

    writeln(dem);

    readln;

end.

 

Khanhh Dương
Xem chi tiết
Minh Lệ
26 tháng 2 2023 lúc 18:45

Bạn bổ sung thêm đề nhé

Trang Le
Xem chi tiết
Minh Lệ
17 tháng 12 2022 lúc 1:13

Program HOC24;

var s: string;

i: byte;

begin

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

write('Cac chu cai in hoa: ');

for i:=1 to length(s) do if s[i] in ['A'..'Z'] then write(s[i],' ');

writeln;

for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i],' ');

readln

end.

Khánh Mỹ
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:45

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

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

for i:=1 to d do 

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

writeln('Xau moi la: ',st);

readln;

end.

Công chúa Anime
Xem chi tiết
ngocanh
Xem chi tiết
ngocanh
1 tháng 12 2021 lúc 22:08

giúp em với

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

diễn đậu tiến
Xem chi tiết
Edward Paros
13 tháng 4 2023 lúc 23:16

s = input("Nhập xâu s: ")
x = input("Nhập xâu x: ")
count = 0

for i in range(len(s) - len(x) + 1):
    if s[i:i+len(x)] == x:
        count += 1

if count == 0:
    print("Không xuất hiện")
else:
    print("Số lần xuất hiện của x trong s là:", count)

Khánh Mỹ
Xem chi tiết
Buddy
3 tháng 3 2021 lúc 14:53

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

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

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

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

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.