YOMEDIA
NONE

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

Theo dõi Vi phạm
ADSENSE

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
 
NONE

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

ZUNIA9
 

 

YOMEDIA
AANETWORK
OFF