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.

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')

 

 

     

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

int main()

{

cin>>a>>b>>c;

if (a+c %2==0) cout<<"AC ";

if (b+c%2==0) cout<<"BC ";

if (a+b%2==0) cout<<"AB";

return 0;

}

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

22 tháng 7 2023

program tong_so_le;

var

     n, i, a_i, tong: integer;

begin

     writeln('Nhap vao so nguyen khong am n:');

     readln(n);

     while (n <= 0) or (n > 100) do

     begin

          writeln('So nguyen n phai thoa man 0 < n <= 100, vui long nhap lai:');

          readln(n);

     end;

     writeln('Nhap vao ', n, ' so nguyen a1, a2, ..., an:','<mỗi số nguyên nhập trên một hàng>');

     tong := 0; // Khởi tạo tổng bằng 0

     for i := 1 to n do

     begin

          readln(a_i);

          if i mod 2 = 1 then

               tong := tong + a_i; 

     end;

     writeln('Tong cac so tai vi tri le trong mang la: ', tong);

end.

uses crt;

var i,n,t,j,kt:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do

if n mod i=0 then

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

write(t);

readln;

end.

29 tháng 8 2023

cảm ơn bn đã giúp mik nhiều bn thông cảm

uses crt;

var n,t:integer;

{------------------kiem-tra-so-nguyen-to----------------------------}

function ktnt(x:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(x)) do 

  if x mod i=0 then 

begin

kt:=false;

break;

end;

if kt=true then ktnt:=true

else ktnt:=false;

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

begin

clrscr;

t:=0;

repeat

  write('Nhap n='); readln(n);

if (n mod 2=0) then t:=t+n;

until ktnt(n)=false;

writeln(t);

readln;

end.

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.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

12 tháng 8 2023

def kiem_tra_nguyen_to(n):

    if n < 2:

        return False

    for i in range(2, int(n ** 0.5) + 1):

        if n % i == 0:

            return False

    return True

def kiem_tra_nguyen_to_cung_nhau(m, n):

    if kiem_tra_nguyen_to(m) and kiem_tra_nguyen_to(n):

        return True

    return False

M = int(input("Nhập số M: "))

N = int(input("Nhập số N: "))

if kiem_tra_nguyen_to_cung_nhau(M, N):

    print("Hai số", M, "và", N, "là hai số nguyên tố cùng nhau.")

else:

    print("Hai số", M, "và", N, "không phải là hai số nguyên tố cùng nhau.")

17 tháng 8 2021

uses crt;

var n,i,chan,tonchan:integer;

a:array[1..100] of integer;

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

write('a[i]='); readln(a[i]);

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.

 

1 tháng 10 2021

Sai roofi