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é
có như là 8
mọi người làm các bước hộ em với ạ!
đây là 1 đề bài lập trình pascal đấy ạ!
lập trình viên nào hộ em với xong em k cho ạ!
AI KO BÍT THÌ ĐỪNG NHẮN TRẢ LỜI ĐƯỢC KO Ạ?
ok tui ko biết
có chứ sao ko
mình không viết hàm function tại function là để viết chương trình đi thi hsg nếu bạn cần thì nói nha
program songuyento;
uses crt;
var n,i,dem:integerl
begin
clrscr; dem:=0;
writeln('nhap n');readln(n);
for i:=1 to n do if n mod i = 0 then dem:=dem+1;
if dem = 1 then writeln('n la so nguyen to') else writeln('n khong phai la so nguyen to');
readln;
end.