câu 1 viết chương trình tính A:=(a3+b3)/sqrt(a+b) nếu a,b>0 các số a,b nhập từ bàn phím.
câu 2 viết chương trình tích 2 số a,b nếu a không chia hết cho 5. Biết rằng a,b là số nguyên dương
câu 3 viết chương trình tính biểu thức S:=2+4+6++..+N với N được nhập từ bàn phím
mọi người giúp e đề thi HKI em ạ
1:
uses crt;
var a,b:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>0) and (b>0) then
begin
s:=(a*a*a+b*b*b)/(sqrt(a+b));
writeln('A=',s:4:2);
end
else writeln('vui long nhap hai so duong');
readln;
end.
2:
uses crt;
var a,b,s:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a mod 5<>0 then
begin
s:=a*b;
writeln('tich cua hai so la: ',s);
end
else writeln('vui long nhap a khong chia het cho 5');
readln;
end.
3: Bạn xem lại đề , Hình như phải là 2+4+6+...+2*n chứ bạn
