Viết chương trình đọc tệp Sothuc.text chứa ba số thực, các số cách nhau một dấu cách ghi tệp Tích.text tích của ba số đó? Giúp mình bài này với ạ
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.
s = input("Nhập một xâu bất kỳ: ")
print("Các ký tự và chữ số trong xâu là:")
for char in s:
if char.isdigit() or char.isalpha():
print(char)
a) Viết số: 9100; đọc số: chín nghìn một trăm.
b) Viết số: 3210; đọc số: ba nghìn hai trăm mười.
c) Viết số: 6034; đọc số: sáu nghìn không trăm ba mươi tư.
d) Viết số: 2004; đọc số: hai nghìn không trăm linh tư.
e) Viết số: 1001; đọc số: một nghìn không trăm linh một.
g) Viết số: 2030; đọc số: hai nghìn không trăm ba mười.
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
Viết số | Đọc số |
28 743 | hai mươi tám nghìn bảy trăm bốn mươi ba |
97 846 | chín bảy nghìn tám trăm bốn mươi sáu |
30 231 | ba mươi nghìn hai trăm ba mươi mốt |
12 706 | mười hai nghìn bảy trăm linh sáu |
90 301 | chín mươi nghìn ba trăm linh một |
Đáp án C
A. z=a+bi hoặc z=-a-bi (loại)
B. (loại)
C. giải phương trình bậc hai ẩn z có nghiệm z=a+bi; z=a-bi (thỏa mãn)