PASCAL Ạ

A vì phải là số tự nhiên >1 và đây ko phải toán lớp 7

C nha bn

theo mk nghĩ cả 4 câu trên đều đúng. ko có câu nào sai

uses crt;

var n:integer;

begin

clrscr;

repeat

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

until n>0;

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

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

readln;

end.

const
fi='sochinhphuong.inp'
fo='sochinhphuong.out'
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
        if (sqr(trunc(sqrt(n)))=n) then exit (true);
        exit (false);
end;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        if scp(n) then writeln(g,'yes') else
        writeln(g,'no');
        close(f);close(g);
end.

qua 8 năm rồi thì vẫn chưa ai giúp anh này....

#include <bits/stdc++.h>

using namespace std;

long long n,x;

int main()

{

cin>>n;

x=sqrt(n);

if (x*x==n) cout<<n<<" la so chinh phuong";

else cout<<n<<" khong la so chinh phuong";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if ((kt==true) and (n>1)) cout<<"YES";

else cout<<"NO";

return 0;

}

Gọi các ước nguyên tố của số N là p ; q ; r và p < q < r

\(\Rightarrow p=2;q+r=18\Rightarrow\orbr{\begin{cases}q=5;r=13\\q=7;r=11\end{cases}\Rightarrow\orbr{\begin{cases}N=2^a.5^b.13^c\\N=2^a.7^b.11^c\end{cases}}}\)

 Với a ; b; c \(\in\)N  và  \(\left(a+1\right)\left(b+1\right)\left(c+1\right)=12\Rightarrow12=2.2.3\)

Do đó N có thể là \(2^2.5.13;2.5^2.13;2.5.13^2;2^2.7.11;2.7^2.11;2.7.11^2\)

N nhỏ nhất nên \(N=2^2.5.13=260\)

Bài 1:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

write('Nhap N: '); readln(n);

if n mod 2 = 0 then write(n,' la so chan') else write(n,' la so le');

readln;

end.

Bài 2:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

write('Nhap N: '); readln(n);

if n = sqr(trunc(sqrt(n))) then write(n,' la so chinh phuong') else (n,' khong phai la so chinh phuong');

readln;

end.