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.
Bài 1:
uses crt;
var n,t1,t2,t3,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n-1 do
begin
if i mod 2=1 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so le nho hon ',n,' la: ',t1);
writeln('Tong cac so chan nho hon ',n,' la: ',t2);
t3:=0;
for i:=1 to 2*n do
t3:=t3+i;
writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);
readln;
end.
Bài 3:
uses crt;
var i:integer;
{------------------chuong-trinh-con-kiem-tra-so-nguyen-to----------------------}
function ktnt(x:integer):boolean;
var kt:boolean;
i:integer;
begin
kt:=true;
for i:=2 to x-1 do
if x mod i=0 then kt:=false;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{-------------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
for i:=2 to 9999 do
if (ktnt(i)=true) and (ktnt(i+2)=true) then
begin
writeln(i,',',i+2);
delay(500);
end;
readln;
end.
Bài 4:
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('Nhap ngay:'); readln(a);
write('Nhap thang:'); readln(b);
write('Nhap nam:'); readln(c);
kt:=0;
if (b=1) and (0<a) and (a<=31) then kt:=1;
if (b=2) and (0<a) and (a<=28) then kt:=1;
if (b=2) and (0<a) and (a<=29) and (c mod 4=0) then kt:=1;
if (b=3) and (0<a) and (a<=31) then kt:=1;
if (b=4) and (0<a) and (a<=30) then kt:=1;
if (b=5) and (0<a) and (a<=31) then kt:=1;
if (b=6) and (0<a) and (a<=30) then kt:=1;
if (b=7) and (0<a) and (a<=31) then kt:=1;
if (b=8) and (0<a) and (a<=31) then kt:=1;
if (b=9) and (0<a) and (a<=30) then kt:=1;
if (b=10) and (0<a) and (a<=31) then kt:=1;
if (b=11) and (0<a) and (a<=30) then kt:=1;
if (b=12) and (0<a) and (a<=31) then kt:=1;
if kt=0 then writeln('Khong hop le')
else writeln('Hop le');
readln;
end.
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
write(dem);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<''Day khong la so hoan hao";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<''Day khong la so hoan hao";
return 0;
}
def is_coprime(a, b):
"""Hàm ktra a và b có phải là nguyên tố cùng nhau"""
while b:
a, b = b, a % b
return a == 1
n = int(input("Nhập stn n: "))
count = 0
for i in range(1, n+1):
if is_coprime(i, n):
count += 1
print(f"Số lượng số nguyên tố cùng nhau với n là {count}.")
Program HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
Giải cho em bằng chương trình python lớp 10 đc ko ạ