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

cho trước 3 số nguyên dương a,b,k 2 số nguyên dương x,y là đặc biệt nếu thỏa mãn a<= x^2,a<=b, a<=y^3,a<=b và giá trị tuyệt đói x^2-y^3 nhỏ hơn hoặc bằng k. Tìm số lượng các cặp đặc biệt

(làm ơn giúp đỡ mình cần nó trước ngày 29/1) (pascal)

 

Nguyễn Lê Phước Thịnh
27 tháng 1 2022 lúc 19:10

uses crt;

var a,b,k,dem,x,y:longint;

begin

clrscr;

readln(a,b,k);

dem:=0;

for x:=1 to k do 

  for y:=1 to k do 

  if ((a<=b) and (a<=x*x) and (a<=y*y*y)) then dem:=dem+1;

writeln(dem);

readln;

end.


Các câu hỏi tương tự
GamingDudex
Xem chi tiết
Gà Công Nghệ
Xem chi tiết
Mai Xuân Phúc
Xem chi tiết
Mai Xuân Phúc
Xem chi tiết
GamingDudex
Xem chi tiết
Ng Ph Nhung
Xem chi tiết
chibinh nguyen
Xem chi tiết
nguyentienlam
Xem chi tiết
Võ Thị Mai Sương
Xem chi tiết