Những câu hỏi liên quan
Phan Thị Chuyên
Xem chi tiết
Phan Thị Chuyên
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
2 tháng 3 2023 lúc 20:10

Bình luận (0)
Quyen Duong
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:56

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.

Bình luận (0)
Nguyễn Thị Bích Huyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 10:42

Câu 1:

uses crt;

var a,b,c,p,s: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

        p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end

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

readln;

end.

Câu 2: 

uses crt;

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

i,n,t,max,min: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('Tong cac phan tu trong day la: ',t);

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('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end. 

Bình luận (1)
Nguyen Huu Tinh
Xem chi tiết
Chanh Xanh
22 tháng 11 2021 lúc 13:46

Program Bui_Trung_Hau; (Thay đổi tên tùy ý thích nhé!!!)
uses crt;
Var a, b, p, s integer;
Begin;
Write ('Nhap chieu dai CD'); Readln (a);
Write ('Nhap chieu rong CR'); Readln (b);
p:= (a+b)*2
S:= a*b
Writeln ('Chu vi hinh chu nhat:' ,p);
Writeln ('Dien tich hinh chu nhat:' ,S);
Readln;
End.

Bình luận (1)
duc nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:00

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (a<b) cout<<a;

else cout<<b;

return 0;

}

Bình luận (0)
Huyền Nguyễn
Xem chi tiết
Cheewin
9 tháng 11 2016 lúc 22:47

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

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

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

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

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

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

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

Bình luận (0)
bao gia
Xem chi tiết
Phía sau một cô gái
22 tháng 3 2023 lúc 19:38

a = int(input("Nhập chiều dài: "))

b = int(input("Nhập chiều rộng: "))

chu_vi = 2*(a+b)

dien_tich = a*b

print(f"Chu vi hình chữ nhật là: {chu_vi}")

print(f"Diện tích hình chữ nhật là: {dien_tich}")

Bình luận (0)
Trần Quỳnh Ngọc
Xem chi tiết
Trần Chi Linh
1 tháng 1 2017 lúc 21:02

Câu 1: 160%                        Câu 2: 64,5 cm                           Câu 3: 9,447                           Câu 4: 258,6 tấn

Câu 5: 155,3                         Câu 6: 4312500 đồng                  Câu 7: 499                              Câu 8: 49,5 

                                      Câu 9: 0,0189                                  Câu 10: 6,25          k mình nha!

     

Bình luận (0)
Trần Chi Linh
1 tháng 1 2017 lúc 21:05

Hình như câu 4 Trần Quỳnh Ngọc thiếu tỉ số số hàng của 2 đội là 1/3 đó đúng không?

Bình luận (0)
Nguyễn Hoàng Bảo Châu
2 tháng 1 2017 lúc 7:22

hỏi thì hỏi ít ít thôi chứ. Tham lam, hỏi nhiều tế ông cố nội hay chi z

Bình luận (0)