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.

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

if (m%n==0) cout<<m/n;

else if (n%m==0) cout<<n/m;

else cout<<m+n;

return 0;

}

27 tháng 10 2021

#inclue <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

if (a<=0) cout<<"khong phai";

else cout<<fixed<<setprecision(2)<<a*a;

return 0;

}

31 tháng 10 2021

code bằng python

a = input('nhap a ')

if a>0:

    print('a la canh cua hinh vuong. Dien tich S = ', a**2)

else:

    print('a khong phai la canh hinh vuong')

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

14 tháng 1 2022

Var t,n:integer;

begin

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

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

22 tháng 11 2018

program ba_canh_tam_giac;

uses crt;

var a,b,c: real;

Begin

clrscr;

write('Nhap ba so a, b và c: '); readln (a,b,c);

If (a+b>c) and (b+c>a) and (c+a>b) then

writeln (' a,b va c la ba canh cua mot tam giac ')

else writeln ( ' a,b va c khong la ba canh cua mot tam giac ');

readln

end.

uses crt;

var a:array[1..300]of integer;

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

QT
Quoc Tran Anh Le
Giáo viên
27 tháng 11 2023

- Hình 9:

Khi người dùng chọn nút play thì máy tính sẽ mở bài hát.

Thông tin mở bài hát sẽ được máy tính tiếp nhận và kết quả xử lí thông tin này là bài hát sẽ được mở.

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

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

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.