Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Linh Nga Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
15 tháng 3 2022 lúc 15:05

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:33

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

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

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

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

h9iii
Xem chi tiết
Võ Đức Dũng
16 tháng 9 2021 lúc 20:57

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

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

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

Nguyễn Lê Phước Thịnh
16 tháng 9 2021 lúc 20:33

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

Nguyễn Mỹ
Xem chi tiết
nguyễn an phát
5 tháng 4 2021 lúc 18:23

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 19:50

Câu 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 19:51

Câu 2: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

nguyễn thị hải yến
Xem chi tiết
Ngô Thành Chung
23 tháng 1 2022 lúc 11:09

var ax,ay,bx,by,cx,cy,a,b,c : real;

begin

writeln('nhap toa do A', ax,ay);

writeln('nhap toa do B',bx,by);

writeln('nhap toa do C',cx,cy);

c:=sqrt(sqr(ax-bx) + sqr(ay-by)); 

b:=sqrt(sqr(ax-cx)+sqr(ay-cy));

a:=sqrt(sqr(bx-cx)+sqr(by-cy));

if (a+b>c) and (a+c>b) and (b+c>a) then write('Ba diem A,B,C tao thanh tam giac) else ('Ba dinh A,B,C khong tao thanh tam giac);

readln

end.

Giải thích : Sử dụng tọa độ để tính độ dài AB = c, AC = b, BC=a

Nếu tổng của 2 trong 3 số a,b,c lớn hơn số còn lại thì ta được tam giác, nếu không thì không tạo thành ta giác

Nguyễn Lê Phước Thịnh
23 tháng 1 2022 lúc 12:13

#include <bits/stdc++.h>

using namespace std;

double ax,ay,bx,by,cx,cy,a,b,c;

int main()

{

cin>>ax>>ay>>bx>>by>>cx>>cy;

a=sqrt((ax-bx)*(ax-bx)+(ay-by)*(ay-by));

b=sqrt((ax-cx)*(ax-cx)+(ay-cy)*(ay-cy));

c=sqrt((bx-cx)*(bx-cx)+(by-cy)*(by-cy));

if (a+b>c && b+c>a && c+b>a) cout<<"Yes";

else cout<<"No";

return 0;

}

Elizabeth
Xem chi tiết
gg lol
29 tháng 1 2023 lúc 11:55

import math

a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))

d = b**2 - 4*a*c

if d > 0:
    x1 = (-b + math.sqrt(d)) / (2*a)
    x2 = (-b - math.sqrt(d)) / (2*a)
    print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
    x = -b / (2*a)
    print("Phương trình có nghiệm kép: x =", x)
else:
    print("Phương trình không có nghiệm thực."

Hải Hà
Xem chi tiết
Nhi Yến
Xem chi tiết

uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 

Trương Huy Hoàng
12 tháng 10 2021 lúc 20:05

(C++) 

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
double x;
cin >> a >> b;
cout << a << "x+" << b << "=0";
cout << "\n<=> x=" << (double)-b/a << endl;
return 0;
}

Chúc bn học tốt!

Trương Huy Hoàng
12 tháng 10 2021 lúc 20:20

Bài đầy đủ hơn của mk (bn có thể tham khảo):

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
double x;
cin >> a >> b;
if(a==0) {
    {if(b!=0)
    cout << "Phuong trinh vo nghiem" << "\n";}
    {if(b==0)
    cout << "Phuong trinh co vo so nghiem" << "\n";} }
if (a!=0) {
{ if(b!=0)
   {cout << a << "x+" << b << "=0";
cout << "\n<=> x=" << (double)-b/a << "\n";} }
{
    if(b==0) {
    {
        cout << "x=0" << endl;}
    }
}
}
return 0;
}

Chúc bn học tốt!

Hải Hà
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:49

Bài 1:

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

Minh Lệ
6 tháng 4 2023 lúc 22:54

Bài 2:

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

Minh Lệ
6 tháng 4 2023 lúc 22:55

Bài 3:

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=1;

for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];

write('Tich la: ',t);

readln

end.

Hải Hà
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 7 2018 lúc 5:50

Đáp án đúng : B