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
Biển Tomm
Xem chi tiết
Biển Tomm
8 tháng 1 2022 lúc 15:35

cứu mình với

 

Biển Tomm
8 tháng 1 2022 lúc 16:54

chỉ mình với ạ

Biển Tomm
8 tháng 1 2022 lúc 19:44

ai biết làm chỉ mình với ạ

 

Linh Hà
Xem chi tiết
Nguyên Khôi
2 tháng 11 2021 lúc 17:55

uses crt;

var

a,b,p,s:integer;

begin

readln(a,b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi va dien tich cua hcn lan luot la: ',p,s);

readln

end.

Tiên Tiên
Xem chi tiết
Nguyen Hung
2 tháng 5 2021 lúc 20:06

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

 

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

Bùi Anh Tuấn
2 tháng 5 2021 lúc 20:16

Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:25

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

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

begin

clrscr;

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

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

ve(a,b);

readln;

end.

Lò chí Quyền
Xem chi tiết
Kiều Vũ Linh
7 tháng 5 2023 lúc 12:35

Var cd,cr,cv,dt:real;

Begin

Write('Chieu dai = ');readln(cd);

Write('Chieu rong = ');readln(cr);

cv:=(cd+cr)*2;

dt:=cd*cr;

Writeln('Chu vi la ',cv:10:2);

Write('Dien tich la ',dt:10:2);

Readln

End.

My Nguyen
Xem chi tiết
Nguyễn Minh Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 5 2021 lúc 9:56

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}

function cv(x,y:integer):integer;

begin

cv:=x+y;

end;

{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}

function dt(x,y:integer):integer;

begin

dt:=x*y;

end;

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

begin

clrscr;

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

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

writeln('Chu vi la: ',cv(a,b));

writeln('Dien tich la: ',dt(a,b));

readln;

end.

anh tran thi ngoc
Xem chi tiết
Nguyên Hưng Trần
28 tháng 10 2021 lúc 19:25

Program Chu_nhat;

uses crt;

var a,b:integer;

Begin

  clrscr;

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

  writeln('Chu vi cua hinh chu nhat la: ',(a+b)*2);

  readln;

end.

Trần Khang
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:40

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

Thanhh Tùngg
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 11 2021 lúc 23:30

#include <bits/stdc++.h>

using namespace std;

long double a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setprecision(2)<<(a+b)*2<<endl;

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

return 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}")