VCT: tạo xấu gồm tất cả các chữ số có trong xấu nhập vào từ bàn phím Ví dụ: "ngay 20 tháng 12 năm 2021”>" 122001^ "
" 122001^ ""> " 122001^ "" />
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]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
t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Nhập 1 số từ bàn phím. Nhiều nhất 6 chữ số. In ra cách đọc số đó. Ví dụ 12=> mười hai, 123=> một trăm hai mươi ba. 1456=> một ngàn bốn trăm năm mươi sáu
program doc_so;
uses crt;
var i,n:longint;
st1,st2:string;
begin
clrscr;
write('nhap n:');readln(n);
str(n,st1);
st2:=''
if length(st1)=6 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[5] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[6] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=5 then
begin
case st1[1] of
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[5] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=4 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=3 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=2 then
begin
case st1[1] of
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=1 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
readln;
end.
Nhập vào từ bàn phím 1 dãy A gồm n số nguyên.Tính và đưa ra màn hình tổng của tất cả các số nguyên chia hết cho cả 2 và 5 có mặt trong dãy A
Program HOC24;
uses crt;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];
end;
readln;
write(t);
readln;
end.
1. Nhập vào 1 năm (ví dụ: 2022), cho biết năm đó có phải năm nhuận không.
2. Viết chương trình tính giá trị biểu thức 1/(a+b) với a, b là các số được nhập từ bàn phím; (có thể thay đổi biểu thức khác)
3. Nhập vào 1 ký tự bất kỳ, cho biết ký tự đó thuộc loại ký tự nào (Ký tự số hay ký tự chữ cái hay ký hiệu khác).
giúp em với ạ mai em thi rồi ạ :((((((
2:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;
return 0;
}
Viết chương trình nhập vào từ bàn phím các số nguyên dương, khi người dùng nhập số có nhiều chữ số, thì chương trình sẽ tính tổng của các chữ số đó và in ra màn hình. (dùng Python để viết chương trình).
Ví dụ: khi người dùng nhập số 246 thì tổng bằng 2 + 4 + 6 = 12
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
Vct nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tệp sole.txt
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
1 không
2
Program UCLN;
uses crt;
var a,b : integer;
begin
write ('nhap so a la ');readln (a);
write ('nhap so b la ');readln (b);
while a < > b do
if a >b then a := a - b else b := b - a ;
write ( ' UCLN la :' , a );
readln
end.
1:
#include <bits/stdc++.h>
using namespace std;
int n,i;
bool kt;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>1) cout<<"La so nguyen to";
else cout<<"Khong la so nguyen to";
return 0;
}