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âu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
đâ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.
uses crt;
var n,n1,s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
n1:=2*n+1;
s:=((n1 - 1)/2+1)*(n1 + 1)/2;
write(s:0:0);
readln
end.
uses crt;
var m,n: integer;
begin
clrscr;
writeln('Nhap n = '); read(n);
m:=0;
for i:=1 to n do
m:=m+i*i*i;
m:=sqrt(m);
writeln('m = ',m);
readln
end.
const
nhap='input.inp';
xuat='output.out';
var s:int64;
i,n:longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
for i:=1 to n do
s:=s+i;
write(s);
end.
close(input);close(ouput);
program hotrotinhoc;
const fi='NT.INP';
fo='NT.OUT';
var x,y,d,n: integer;
f: text;
function nt(a: byte): boolean;
var j: byte;
begin
nt:=true;
if (a=2) or (a=3) then exit;
nt:=false;
if (a<=0) or (a=1) or (a mod 2=0) or (a mod 3=0) then exit;
j:=6;
while (j<=trunc(sqrt(a))) do
begin
if (a mod j=0) or (x mod (j+2)=0) then exit;
j:=j+5;
end;
nt:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for x:=1 to n do
for y:=x to n do
if (x+y=n) and nt(x) and nt(y) then inc(d) ;
write(f,d);
close(f);
end;
begin
ip;
out;
end.
var n,x,dem:byte;
f:text;
function kt(so:byte):boolean;
var k:byte;
begin
if (so=2) or (so=3) then exit(true);
if (so=1) or (so mod 2=0) or (so mod 3=0) then exit(false);
k:=5;
repeat
if (so mod k =0) or (so mod (k+2)=0) then break;
inc(k,6);
until k>trunc(sqrt(so));
exit(k>trunc(sqrt(so)));
end;
begin
assign(f,'NT.inp');reset(f);
readln(f,n);
close(f);
assign(f,'NT.out');rewrite(f);
dem:=0;
for x:=1 to n div 2 do
if (kt(x)) and (kt(n-x)) then inc(dem);
writeln(f,dem);
close(f);
readln
end.
chúc bạn học tốt!
tham khảo:
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
cout<<t;
return 0;
}