OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình tìm số chính phương có 6 chữ số sao cho 3 chữ số sau lớn hơn 3 chữ số trước 4 đơn vị?

*Bài tập Pascal:

Viết chương trình tìm số chính phương có 6 chữ số sao cho 3 chữ số sau lớn hơn 3 chữ số trước 4 đơn vị.

Các bạn giúp mình với .Mình cần gấp lắm.Cảm ơn các bạn nhiềuvui

  bởi Lan Ha 02/11/2018
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • uses crt;
    var i:longint;

    {-----------------------------------------------------------}
    function kt(x:longint):boolean;
    var st,s:string;
    i,a,b,o:longint;
    begin
    str(x,st);
    s:='';
    for i:=1 to length(st) do
    begin
    if i=4 then begin
    val(s,a,o);
    s:='';
    end;
    s:=s+st[i];
    val(s,b,o);
    end;
    if b-a=4 then kt:=true
    else kt:=false;
    end;

    {-----------------------------------------------------------}
    begin
    clrscr;
    for i:=100000 to 999999 do
    if (i=sqr(round(sqrt(i)))) and (kt(i)) then
    writeln(i);
    readln;
    end.

      bởi Steven The 02/11/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF