const fi='input.txt';
fo='output.txt';
var f1,f2:text;
a:array[1..20]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 10=0 then writeln(f2,i);
close(f1);
close(f2);
end.
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 ạ
Cho S = a/b + c/d ( a,b,c,d nhập từ bàn phím ) lập trình tính tổng S trên
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
http://vinhdinhcoder.net/Problem/Details/5193
