Viết chương trình nhập các số nguyên m,n từ bàn phím, cách nhau bởi dấu cách. a/ Chương trình đưa ra tổng của 2 số đã nhập b/Chương trình đưa ra hiệu của 2 số đã nhập c/Chương trình đưa ra thương của 2 số đã nhập
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.
program ChenSoX;
var
i, j, n, x: integer;
a: array[1..100] of integer;
begin
write('Nhập số phần tử trong dãy số: ');
read(n);
for i:=1 to n do
begin
write('Nhập phần tử thứ ', i, ' của dãy số: ');
read(a[i]);
end;
write('Nhập số x cần kiểm tra và chèn vào dãy số:');
read(x);
i := 1;
while (i <= n) and (a[i] < x) do
i := i + 1;
if (i <= n) and (a[i] = x) then
writeln('Số ', x, ' đã có trong dãy số')
else
begin
for j:=n downto i+1 do
a[j] := a[j-1];
a[i] := x;
writeln('Dãy số mới:');
for i:=1 to n+1 do
write(a[i], ' ');
end;
readln;
end.
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin
clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So *** nhat trong mang la :', max);
min:=a[1];
for i:=2 to n do if min>a[i] then min:=a[i];
write('So nho nhat trong mang la :', min);
readln
end.
Em hãy cho biết lựa chọn nào dưới đây KHÔNG được áp dụng bản quyền?
A.Tên
B.Âm nhạc
C. Video
D. Hình ảnh
=> A.Tên
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.