Cho 3 số nguyên p,q,r khác 0 kiểm tra xem 3 số này theo thứ tự nhập vào có tạo thành một cấp số nhân hay không. Viết chương trình thực hiện yêu cầu trên.
1 câu trả lời
®bài đã được cục xuất bản chứng thực bản quyền vui lòng không sao chép®
program ct;
uses crt;
var p,q.r,a:longint;
begin
clrscr;
write('nhap p,q,r: ');readln(p,q,r);
a:=p+2*q+3*r;
if (p*1) and(2*q) and(3*r))=a then writeln('la cap so nhan') else writeln('khong la cap so nhan');
readln;
end.
®bài đã được cục xuất bản chứng thực bản quyền vui lòng không sao chép®
Câu hỏi trong lớp
Xem thêm
