Program Marble_Top;

uses crt;

var i,n,t:integer;

begin

write('nhap n '); readln(n);

for i:= 1 to n do

if i*i =n then t:= t+1;

if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');

readln

end.

var a:integer;

begin

readln(a);

if sqr(trunc(sqrt(a)))=a then

writeln('la so chinh phuong') else writeln('khong la so chinh phuong');

end.

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 9999 do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

Bn bt lm cách này ko?

Theo bài ra ta có:

abab = a+9b+15a+9b+15

=> a (b +15) = b (a + 9)

=> ab + 15a = ab + 9b

=> ab - ab + 15a - 9b = 0

=> 0 + 15a - 9b = 0

=> 15a = 9b

=> abab = 915915 = 4545

Vậy abab = 4545.

Theo bài ra ta có:

abab = a+9b+15a+9b+15

=> a (b +15) = b (a + 9)

=> ab + 15a = ab + 9b

=> ab - ab + 15a - 9b = 0

=> 0 + 15a - 9b = 0

=> 15a = 9b

=> abab = 915915 = 4545

Vậy abab = 4545.

abab = a+9b+15a+9b+15

\(=> a (b +15) = b (a + 9)\)

\(=> ab + 15a = ab + 9b\)
\(=> ab - ab + 15a - 9b = 0 \)

\(=> 0 + 15a - 9b = 0\)

\(=> 15a = 9b\)

\(=> abab = 915915 = 4545\)

Vậy\( abab = 4545.\)

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

Thuật toán: 

-Bước 1: Nhập n

-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương

không thì n không phải là số chính phương

-Bước 3: Kết thúc.

Viết chương trình

uses crt;

var n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<0 then writeln(n,' khong la so chinh phuong')

else begin

             if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

             else writeln(n,' khong la so chinh phuong');

       end;

readln;

end.

uses crt;

var a,x:longint;

{------------------ham-kiem-tra-so-nguyen-to---------------}

function ktnt(x:longint):boolean;

var kt:boolean;   

i:longint;

begin   

kt:=true;   

for i:=2 to trunc(sqrt(x)) do     

if x mod i=0 then       

begin           

kt:=false;           

break;       

end;   

if kt=true then ktnt:=true   

else ktnt:=false;

end;

{---------------chuong-trinh-chinh-------------------}

begin

clrscr;

repeat 

write('Nhap a='); readln(a);

until a>10;

if ktnt(a)=true then   

begin     

x:=a;     

repeat         

a:=a div 10;         

if ktnt(a)=true then a:=a div 10;     

until a<10;     

if (ktnt(a)=true) and (a>1) then writeln(x,' la so sieu nguyen to')     

else writeln(x,' khong la so sieu nguyen to');   

end

else writeln(a,' khong la so sieu nguyen to');

readln;

end.

bn ơi cấu hỏi hơi bị khó hiểu xíu 

chia hết cho 5:)
Số mình chọn là 5 và 6

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a*b;

if ((t%5==0) or (t%8==0)) cout<<"YES";

else cout<<"NO";

}