Em hãy viết chương trình nhập vào từ bàn phím một chữ số trong hệ thập phân, đưa ra màn hình tên gọi của chữ số đó bằng Tiếng Anh
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.
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.
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.
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.
Câu 1. Viết chương trình nhập vào từ bàn phím chiều dài và chiều rộng của một hình chữ nhật. Tính và đưa ra màn hình chu vi và diện tích của hình chữ nhật đó.
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.
Viết chường trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình số chữ số xuất hiện trong xâu đó
# 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)
# 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)
tin học: C1 viết phương trình nhập số nguyên dương a có 3 chữ số .tính tổng các chữ số của a
C2: viết chương trình nhập từ bàn phím một số nguyên x. hãy tính và đưa ra màn hình giá trị của hàm f(x)= x^10+5x+1
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;
}
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ
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.
Bạn ơi giúp mình với chiều nay mình thi rồi
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.
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy chuyển hoá xâu vừa nhập thành chữ thường và in ra màn hình.
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.
Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa
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.
Bài 1: Viết chương trình nhập vào từ bàn phím các số thực a,b,c,d. Tính và đưa ra màn hình giá trị biểu thức: 2cb3 + 5cd4 – 3a? + bcd" - Bài 2: Viết chương trình nhập vào từ bàn phím 2 số nguyên m,n (n>0). Tính và đưa ra màn hình giá trị biểu thức nm-2 ~kíuuuuu~
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;
}