Bài 6: Phép toán, biểu thức, câu lệnh gán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hary Jen Li

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 ạ

Nguyễn Lê Phước Thịnh
17 tháng 12 2019 lúc 21:46

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

Khách vãng lai đã xóa

Các câu hỏi tương tự
Trần Lan Anh
Xem chi tiết
Ha Ha
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
trần duy hiếu
Xem chi tiết
Đức Nguyễn Trung
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Huuthuong
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết