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.
đâ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.
program Doi_giay;
var n,i,j,d:longint;
a,b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for j:=1 to n do
read(b[j]);
for i:=1 to n do
for j:=1 to n do
if a[i]=b[j] then begin a[i]:=0;
b[j]:=0; end;
for i:=1 to n do
if a[i]<>0 then d:=d+1;
write(d);
end.
Mình có bài này ở gmail bạn gửi địa chỉ gmail của bạn để mình chuyển đáp án nhé
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.
vải :)
11:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
if (a>0 && b>0 && c>0 && a+b>c && a+c>b && b+c>a) cout<<"YES";
else cout<<"NO";
return 0;
}