K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TN
31 tháng 12 2017
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);end.
ML
7 tháng 1 2020
Bộ test số 2 số 7 ở sau số 789 sẽ tạo ra số lớn hơn nó nhưng sao lại để số 7 ở đầu tiên nhỉ. (789756119123)
7 tháng 1 2020
sắp xếp lại mảng rồi in ra màn hình a[1]a[2]a[3]a[n] làdc
ML
26 tháng 5 2020
Program HOC24;
var i,n,vt1,vt2,max,min: integer;
a: array[1..1000] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
max:=0; min:=32000;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
vt1:=i;
end;
if a[i]<min then
begin
min:=a[i];
vt2:=i;
end;
end;
writeln(max,' ',vt1);
write(min,' ',vt2);
readln
end.
Bài 4:
#include <bits/stdc++.h>
using namespace std;
long long x,n;
int main()
{
cin>>n;
x=int(sqrt(n));
if (x*x==n) cout<<"yes";
else cout<<"no";
return 0;
}