nhập vào một số nguyên dương tối đa gồm 2 chữ số hãy viết chương trình in ra cách đọc của số đó
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
25 tháng 2 2021
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
VD
17 tháng 9 2021
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
VD
17 tháng 9 2021
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:='';
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
NB
16 tháng 4 2023
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.
7 tháng 5 2021
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
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
program doc_so;
var
so, chuc, donvi: integer;
begin
write('Nhap vao mot so nguyen duong co 2 chu so: ');
readln(so);
if (so < 10) or (so > 99) then
writeln('So khong hop le')
else
begin
chuc := so div 10;
donvi := so mod 10;
case chuc of
1:
case donvi of
0: writeln('Muoi');
1: writeln('Muoi mot');
2: writeln('Muoi hai');
3: writeln('Muoi ba');
4: writeln('Muoi bon');
5: writeln('Muoi lam');
6: writeln('Muoi sau');
7: writeln('Muoi bay');
8: writeln('Muoi tam');
9: writeln('Muoi chin');
end;
2: write('Hai muoi');
3: write('Ba muoi');
4: write('Bon muoi');
5: write('Nam muoi');
6: write('Sau muoi');
7: write('Bay muoi');
8: write('Tam muoi');
9: write('Chin muoi');
end;
if (chuc <> 1) and (donvi > 0) then
begin
write(' ');
case donvi of
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('nam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
end;
readln;
end.
program Doc_so;
var
n: integer;
begin
write('Nhap mot so nguyen duong to da 2 chu so: ');
readln(n);
if n < 10 then
writeln('So ', n, ' doc la: muoi ', n)
else if (n >= 10) and (n < 20) then
writeln('So ', n, ' doc la: muoi ', n mod 10)
else if (n >= 20) and (n < 100) then
begin
case n div 10 of
2: write('Hai');
3: write('Ba');
4: write('Bon');
5: write('Nam');
6: write('Sau');
7: write('Bay');
8: write('Tam');
9: write('Chin');
end;
write(' muoi ');
case n mod 10 of
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end
else
writeln('Khong nhap dung gia tri so nguyen duong to da 2 chu so.');
end.