Mọi người giúp mình làm bài này với ạ!!!! Gấp gấp lắm!!! Đề bài: Viết chương trình nhập vào một xâu S bất kì từ bàn phím và nhập vào một kí tự k bất kì từ bàn phím. Tìm k trong xâu S, nếu có thì xo...

KP

Katty Phươngg

24 tháng 4 2019

Mọi người giúp mình làm bài này với ạ!!!! Gấp gấp lắm!!! Đề bài: Viết chương trình nhập vào một xâu S bất kì từ bàn phím và nhập vào một kí tự k bất kì từ bàn phím. Tìm k trong xâu S, nếu có thì xoá toàn bộ các ký tự k. Trân thành cảm ơn rất nhiều! ...

Đọc tiếp

#Tin học lớp 11

0

PN

Phấn Nguyen

7 tháng 3 2021

viết chương trình nhập một xâu bất kì từ bàn phím và xóa xâu này từ vị trí vt qua những kí tự ( vt, n là các số nguyên nhập từ bàn phím)

#Tin học lớp 11

1

PN

Phấn Nguyen

7 tháng 3 2021

Giải giúp mk vói🥰

Đúng(0)

H

Hiếu's

29 tháng 3 2021

Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

29 tháng 3 2021

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

writeln('Cac ki tu so co trong xau S:');

dem:=0;

for i:=1 to d do

if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do

if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

Đúng(1)

N

NguyenThiChongDinh

27 tháng 4 2022

Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

30 tháng 4 2022

Bài 3:

uses crt;

const fi='teptong.txt';

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(a,b);

writeln(a+b);

writeln(f1,a+b);

close(f1);

readln;

end.

Đúng(0)

NT

Nguyễn Thị Diễm Hạnh

23 tháng 3 2023

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

#Tin học lớp 11

1

ML

Minh Lệ

23 tháng 3 2023

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)

BL

Bee Lee

15 tháng 5 2023

Viết chương trình nhập từ bàn phím một xâu kí tự bất kì (Python)

#Tin học lớp 10

0

PT

Phước Thiện Lê Hoàng

22 tháng 4 2021

giúp em với 2 câu thôi ạ :viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txtviết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình...

Đọc tiếp

#Tin học lớp 11

2

NL

Nguyễn Lê Phước Thịnh

22 tháng 4 2021

1:

uses crt;

const fi='ketqua.txt';

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

d:=length(st);

for i:=1 to d do

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

writeln(f1,st);

close(f1);

end.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

22 tháng 4 2021

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

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

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

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

Đúng(0)

TT

Thiên Thiên

16 tháng 3 2021

Viết chương trình nhập vào 1 xâu kí tự ( độ dài ko quá 100) và 1 kí tự bất kì từ bàn phím .Thông báo xem kí tự đó có xuất hiện trong xâu kí tự vừa nhập hay ko?

#Tin học lớp 11

1

ML

Minh Lệ

16 tháng 3 2021

Program HOC24;

var s: string;

x: char;

d: byte;

begin

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

write('Nhap ki tu: '); readln(x);

d:=0;

for i:=1 to length(s) do if s[i]=x then d:=d+1;

if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');

readln

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

16 tháng 3 2021

Cô ơi, cô chưa khai báo biến i thưa cô

Đúng(0)

NT

Nguyễn TRƯỜNG Giang

4 tháng 4 2022

viết chương trình nhập vào từ bàn phím một xâu bất kì hãy thực hiện xoá 5 kí tự bắt đầu từ vị trí 3 cả xâu đó rồi đưa kết quả ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

4 tháng 4 2022

uses crt;

var st:string;

begin

clrscr;

readln(st);

delete(st,3,5);

writeln(st);

readln;

end.

Đúng(0)

LA

Lan Anh

18 tháng 3 2021

viết chương trình nhập 1 xâu bất kì từ bàn phím ,đưa ra màn hình xâu sau khi xoá n kí tự từ vị trí bất kì

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 3 2021

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

Đúng(0)

BT

B2_Đinh Thị Huệ

10 tháng 5 2022

Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

10 tháng 5 2022

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.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP