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.
program UocChia;
var
n, i: integer;
begin
write('Nhap gia tri cua n: ');
readln(n);
writeln('Cac so co uoc la 3 tu 1 den ', n, ' la:');
for i := 1 to n do
begin
if i mod 3 = 0 then
write(i, ' ');
end;
readln;
end.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
Câu 1:
program chieu_cao;
uses crt;
var Nam, Linh: real;
begin
clrscr;
write ('Nhap chieu cao cua Nam:'); readln (Nam);
write ('Nhap chieu cao cua Linh:'); readln (Trang);
if Nam > Linh then writeln ('Ban Nam cao hon');
if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');
readln
end.
Câu 2:
program Tich;
var N,i: interger;
P: longint;
begin
write ('N='); readln (N);
P:=1;
for i:=1 to N do P:=P*i;
writeln (N,' ! = ',P);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
program MultiplicationTable;
uses crt;
var
N, i, j: integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i := 1 to 9 do
begin
writeln(N, ' x ', i, ' = ', N*i);
end;
readln;
end.
uses crt;
var i,n,j,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
dem:=0;
for j:=1 to i do
if i mod j=0 then inc(dem);
if dem=3 then write(i:4);
end;
readln;
end.
var n,i,dem:longint;
function cp(so:longint):boolean;
begin
if sqr(trunc(sqrt(so)))=so then exit(true)
else exit(false);
end;
function nt(so:longint):boolean;
var k:longint;
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
write('nhap n:');readln(n);
dem:=0;
for i:=1 to n do
begin
if (cp(i)) and (nt(trunc(sqrt(i)))) then
begin writeln(i); inc(dem); end;
end;
write(dem);
readln;
end.
code này chạy khoảng 9s nhé! còn cách tối ưu hơn mong mọi người chỉ bảo!
Program hotrotinhoc;
var d,i,n: longint;
function nt(x:longint): boolean;
var i: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x mod 2=0) or (x mod 3=0) or (x=1) then exit;
i:=5;
while i<=trunc(sqrt(x)) do
begin
if (x mod i=0) or (x mod (i+2)=0) then exit;
i:=i+6;
end;
nt:=true;
end;
begin
readln(n);
d:=0;
for i:=1 to trunc(sqrt(n)) do
if nt(i) then inc(d);
write(d);
readln;
end.
Nguyễn Lê Phước Thịnh Giao Huỳnh
hi, chào bạn! bài giải của bạn khá ok nhưng mình có chút góp ý nhé!
vì N<=2000000000 nên khai báo nên là longint nhé
Em test đúng bộ test này nhé (trong 1s)
code của bạn ấy chạy khá lâu ạ! của em chạy trong 9s và cho kết quả đúng ạ!
Mình có code chạy chưa đến 1s
cô chia sẻ luôn đi cô
uses crt;
var i,n,j,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
dem:=0;
for j:=1 to i do
if i mod j=0 then inc(dem);
if dem=3 then write(i:4);
end;
readln;
end.