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.

2 tháng 5 2021

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.          

28 tháng 10 2021

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.

7 tháng 5 2023

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.

8 tháng 1 2022

cứu mình với

 

8 tháng 1 2022

chỉ mình với ạ

22 tháng 11 2021

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.

22 tháng 11 2021

Chữ tham khảo đâu em ?

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"Chu vi la: "<<fixed<<setprecision(2)<<(a+b)*2<<endl;

cout<<"Dien tich la: "<<fixed<<setprecision(2)<<a*b;

return 0;

}

2 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

int a,b,dt;

int main()

{

cout<<"Nhap chieu dai: ";

cin>>a;

cout<<"Nhap chieu rong: ";

cin>>b;

dt=a*b;

cout<<"Dien tich la: "<<dt;

Return 0;

}

2 tháng 11 2021

lớp 8 mới học pascal thôi nha:

 

30 tháng 10 2021

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

3 tháng 5

nbbnbnbbnn\(\dfrac{^{ }}{ }\)