Những câu hỏi liên quan
Phạm Vũ Hoài Châu
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 22:40

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

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

begin

writeln('La do dai ba canh cua tam giac');

writeln('Chu vi tam giac la: ',a+b+c:4:2);

end

else writeln('Khong phai la do dai 3 canh cua tam giac');

readln;

end.

Bình luận (2)
Nhã Uyênn
15 tháng 11 2021 lúc 18:02
print (" Kiem tra 3 do dai cua tam giac ")a=int(input("Nhap so a: "))b=int(input("Nhap so b: "))c=int(input("Nhap so c: "))if a+b>c and b+c>a and c+a>b:print ("Day la Tam Giac")else:print ("Day khong phai tam giac") 'Đây là lập trình Python nha'
Bình luận (0)
to vinh
Xem chi tiết
Đông Hải
18 tháng 11 2021 lúc 20:47

D

Bình luận (0)
An Phú 8C Lưu
18 tháng 11 2021 lúc 20:48

D.2-3-1-4

Bình luận (0)
châu giang luu
18 tháng 11 2021 lúc 20:50

D.2-3-1-4 nha bạn

Bình luận (0)
Nguyễn Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:39

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Bình luận (0)
Nguyễn Đức Hiếu
Xem chi tiết
Nguyễn Xuân Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:46

2:

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;

return 0;

}

Bình luận (0)
Le Hung Dung
Xem chi tiết
Pham Gia Khanh
Xem chi tiết
Trần Hải
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 21:14

1:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung dau');

if (a<0) and (b<0) then writeln('Cung dau');

if (a>0) and (b<0) then writeln('Khac dau');

if (a<0) and (b>0) then writeln('Khac dau');

readln;

end.

2: 

uses crt;

var n,i,d,t,x,y:integer;

st:string;

begin

clrscr;;

repeat

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

until (100<=n) and (n<=999);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if x mod 2=1 then t:=t+x;

end;

writeln('Tong cac chu so le cua ',n,' la: ',t);

readln;

end.

Bình luận (0)