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.

uses crt;

var x,n,d,i:longint;

st,st1:string;

a:integer;

{----------------------chuong-trinh-con-tim-ucln---------------------}

function ucln(a,b:longint):longint;

var t:longint;

begin

   t:=b mod a;

   while t<>0 do

     begin

        t:=a mod b;

        a:=b;

        b:=t;

     end;

  ucln := a;

end;

{-------------------chuong-trinh-chinh-----------------}

begin

clrscr;

write('nhap x='); readln(x);

str(x,st);

d:=length(st);

st1:='';

for i:=d downto 1 do

  st1:=st1+st[i];

val(st1,n,a);

if ucln(x,n)=1 then writeln('Phai')

else writeln('khong phai');

readln;

end.

10 tháng 1 2023

PASCAL Ạ

 

 

23 tháng 10 2021

undefined

10 tháng 11 2021

k p python đâu pascal nha mà tôi làm được rồi

16 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

bool kt;

int main()

{

cin>>a>>b>>c;

kt=false;

if (a==(b+c)/2) kt=true;

if (b==(a+c)/2) kt=true;

if (c==(b+a)/2) kt=true;

if (kt==false) cout<<"Khong lap duoc";

else cout<<"Lap duoc";

return 0;

}

21 tháng 10 2021

Program HOC24;

var n,i: integer;

t: longint;

Begin

write('Nhap N: '); readln(N);

t:=0;

for i:=1 to n do t:=t+i;

if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');

readln

end.

25 tháng 10 2021

n = int(input('nhap n'))

s = 0

for i in range(0,n):

     s = s+i

print('tong cua day tu 0 den '+n+'la'+s)

if s%2 == 0:

     print('s la so chan')

else:

     print('s la so le')

 

 

     

#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
int tongchuso(long long n)
{
    int t=0;
    while (n>0)
    {
        int x=n%10;
        t=t+x;
        n=n/10;
    }
    return(t);
}
//chuongtrinhchinh
int main()
{
   freopen("sonut.inp","r",stdin);
   freopen("sonut.out","w",stdout);
   cin>>n;
   int t=tongchuso(n);
   while (t>10)
   {
       t=tongchuso(t);
   }
   cout<<t;
   return 0;
}

 

 

12 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t,dem,j;

int main()

{

cin>>n;

x=n;

t=0;

while (n>0)

{

t=t+n%10;

n=n/10;

}

cout<<t;

dem=0;

for (i=2; i<=x; i++)

{

bool kt=true;

for (j=2; j*j<=i; j++)

if (i%j==0) kt=false;

if (kt==true) dem++;

}

cout<<dem;

return 0;

}