Những câu hỏi liên quan
Ngô Văn Phương
Xem chi tiết
Ngô Văn Phương
3 tháng 9 2015 lúc 15:57

215 số có đúng ko nhỉ

 

Ngô Chí Thành
Xem chi tiết
Minh Lệ
1 tháng 6 2021 lúc 15:30

Program HOC24;

var m,i,n: longint;

d1,d2,d3: integer;

function dx(x: longint): boolean;

var j: longint;

s,s1: string;

begin

s1:='' dx:=false;

str(x,s);

for j:=length(s) downto 1 do 

s1:=s1+s[j];

if s=s1 then dx:=true else exit;

end;

function cp(k: longint): boolean;

begin

cp:=false;

if k=sqr(trunc(sqrt(k))) then cp:=true else exit;

end;

begin

write('Nhap M; N: '); readln(m,n);

d1:=0; d2:=0; d3:=0;

if (m<n) and (m>=10) and (n<=100000) then

begin

write('Cac so doi xung la: ');

for i:=m to n do

if dx(i) then

begin

d1:=d1+1;

write(i,' ');

end;

writeln;

writeln('Co ',d1,' so doi xung');

write('Cac so chinh phuong la: ');

for i:=m to n do

if cp(i) then 

begin

d2:=d2+1;

write(i,' ');

end;

writeln;

writeln('Co ',d2,' so chinh phuong');

write('Cac so doi xung chinh phuong la: ');

for i:=m to n do

if dx(i) and cp(i) then 

begin

d3:=d3+1;

write(i,' ');

end;

writeln;

write('Co ',d3,' so doi xung chinh phuong');

end;

readln

end.

Nguyễn Diệu Thảo
Xem chi tiết
Nguyễn Ngọc Phương Thảo
Xem chi tiết
Nguyễn Việt Hoàng
5 tháng 2 2023 lúc 14:50

Sửa đề : đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho

Gọi số cần tìm là \(\overline{abc}\)

Khi đọc tù phải sang trái , ra được số \(\overline{cba}\)

VÌ khi đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho , ta có :

\(\overline{cba}=6\overline{abc}\)

+) Vì cba chia hết cho 6 => a chẵn 

Mặt khác a khác 0 

=> abc x 6 là số có 4 chữ số

Vậy không có số nào thỏa mãn

Ngô Nhật Minh
5 tháng 2 2023 lúc 15:41

Sửa đề : đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho

Gọi số cần tìm là \(\overline{abc}\)\overline{abc}

Khi đọc tù phải sang trái , ra được số :\(\overline{cba}\)\overline{cba}

VÌ khi đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho , ta có :

\overline{cba}=6\overline{abc}

+) Vì cba chia hết cho 6 => a chẵn 

Mặt khác a khác 0 

=> abc x 6 là số có 4 chữ số

Vậy không có số nào thỏa mãn

ntpb123
Xem chi tiết
ntpb123
4 tháng 8 2018 lúc 15:59

ai trả lời đúng mình chọn câu đó  nhớ trả lời nhanh

ntpb123
4 tháng 8 2018 lúc 16:03

trả lời giùm mình đi'

Đỗ Bảo Anh Thư
4 tháng 8 2018 lúc 16:09

18 nha banj

ik mk nha

Tô Minh Ngọc
Xem chi tiết
Long ca ca
Xem chi tiết
Phía sau một cô gái
30 tháng 6 2023 lúc 20:10

program superSymmetricalSubstring;

var

      s: string;

function isSymmetrical(str: string): boolean;

var

      i, len: integer;

begin

      len := length(str);

      for i := 1 to len div 2 do

      begin

            if str[i] <> str[len - i + 1] then

            begin

                  exit(false);

            end;

      end;

      exit(true);

end;

function countSuperSymmetricalSubstrings(s: string): integer;

var

      i, j, len, count: integer;

begin

      len := length(s);

      count := 0;

      for i := 1 to len do

      begin

            for j := 2 to len - i + 1 do

            begin

                  if isSymmetrical(copy(s, i, j)) then

                  begin

                        count := count + 1;

                  end;

            end;

      end;

      count := count + len;

      exit(count);

end;

begin

      write('Nhap xau S: ');

      readln(s);

      writeln('So xau con sieu doi xung cua S: ', countSuperSymmetricalSubstrings(s));

      readln;

end.

Long ca ca
Xem chi tiết
meme
7 tháng 9 2023 lúc 13:41

Dưới đây là một ví dụ về cách giải quyết bài toán này bằng ngôn ngữ Pascal:

 function isPalindrome(s: string): boolean; var i, n: integer; begin n := Length(s); for i := 1 to n div 2 do begin if s[i] <> s[n - i + 1] then begin Result := false; Exit; end; end; Result := true; end; function countSuperPalindromes(s: string): integer; var i, j, n: integer; subStr: string; begin n := Length(s); Result := 0; // Đếm số xâu con đối xứng for i := 1 to n do begin subStr := '' for j := i to n do begin subStr := subStr + s[j]; if isPalindrome(subStr) then Inc(Result); end; end; // Đếm số xâu con siêu đối xứng for i := 1 to n - 1 do begin subStr := '' for j := i to n do begin subStr := subStr + s[j]; if isPalindrome(subStr) then Inc(Result); end; end; end; var s: string; begin s := 'ababcb' writeln(countSuperPalindromes(s)); end.

Kết quả của ví dụ trên sẽ là 3, tương ứng với 3 xâu con siêu đối xứng của xâu "ababcb" là "aba", "bcb", và "ababcb".

Lưu ý rằng đây chỉ là một cách giải quyết bài toán và có thể tồn tại các cách giải khác.

Lê Trần Quỳnh Anh
Xem chi tiết