uses crt;
var a,b,c,d:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
if (b<>0) and (d<>0) then writeln(a/b+c/d:4:2)
else writeln('Vui long nhap lai');
readln;
end.
Mọi người giúp e chỉnh lại pt với ghi thêm mấy cái Pt kia giúp e với cảm ơn nhiều ạ
def ptb2 () :
from math import sqrt
print('nhap a,b,c khac 0:')
a,b,c=map(float,input().split())
d=b**2-4*a*c
if d<0:
print('phuong trinh vo nghiem')
elif d==0:
print('phuong trinh co nghiem',-b/2*a)
else:
x1=(-b-sprt(d))/(2*a)
x2=-b/a-x1
print('x1=',x1)
print('x2=',x2)
def dthcn ():
a,b=map(float,input('nhap ab,cr la :').split())
S=a*b
print('dien tich la :',S)
while True:
print('bat dau')
print('Bang chon viec')
print('1.giaiptb2')
print('2.dthcn')
print('3.gptb1')
print('4.dtht')
print('5.dthtg')
print('6.dtht')
print('7.thoat khoi chuong trinh')
print('ket thuc')
chon=input('hay chon(1,2,3,4,6,7):')
if chon == '1':
print('gptb2')
ptb2()
elif chon == '2':
print('dthcn')
dthcn()
else:
print('tam biet')
break
Cho tệp 'Input.txt' có chứa liên tiếp 20 số nguyên dương, mỗi số cách nhau một dấu cách và không kết thúc bởi ký tự xuống dòng.
a) đọc các số trong tệp ra mảng A
b) Hãy ghi vào tệp 'Output.txt' vị trí các số tròn chục trong mảng A (mỗi vị trí trên 1 dòng)
Viết ct nhập n số nguyên dương, n < = 10000 các số trong phạm vị từ 0 đến 254. Tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả. Mong anh chị giải giúp e với ạ
http://vinhdinhcoder.net/Problem/Details/5193
