Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
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.
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.
b.
```python
for i in range(30):
DTB[i] = float(input(f"Nhập điểm của học sinh thứ
{i+1}: "))
c.
```python max_DTB = DTB[0] for i in range(1,
30): if DTB[i]> max_DTB: max_DTB = DTB[i] là:",
max_DTB)
print("Điểm cao nhất trong mảng DTB
uses crt;
var i,n,x:integer;
kt:boolean;
begin
clrscr;
write('Nhap n='); readln(n);
write('Nhap x='); readln(x);
kt:=false;
for i:=1 to n do
if x=i then kt:=true;
if kt=true then writeln('Co')
else writeln('Khong');
readln;
end.
Program HOC24;
Var d,i,n,x: integer;
Begin
write('Nhap N :'); readln(n);
write('Nhap X : '); readln(x);
d:=0;
for i:=1 to n do if i = x then
begin
write('Trong pham vi tu 1 den ',n,' co so bang ',x);
d:=d+1;
break;
end;
if d=0 then write('Khong co so nao bang ',x,' trong day tu 1 den ',n);
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
bool kt;
int n,i;
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;
}
pascal hả
ờ ờ tớ không biết nhé