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.

23 tháng 11 2021

Tham khảo!

 Tính chu vi, diện tích hình vuông có cạnh là a: 
PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 
begin 
Writeln('Chu vi P = ',4*a:6:2); 
Writeln('Dien tich S = ',a*a:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0'); 
Readln 
END. 

13 tháng 11 2021

b: #include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<p;

return 0;

}

16 tháng 11 2021

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(2*(a+b):4:2);

writeln(a*b:4:2);

readln;

end.

16 tháng 11 2021

Program Chu_nhat; uses crt;

Var a, b, S, CV: real;

Begin    

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

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

   S := a*b;      

CV := (a+b)*2;    

 Writeln('Dien tich hinh chu nhat la:',S:3:2);  

   Writeln('Chu vi hinh chu nhat la:',CV:3:2);    

 readln;

end.

 

 

23 tháng 5 2022

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: 

1 tháng 12 2021

lập trình cơ mà

 

 

uses crt;

begin

clrscr;

writeln(5*2*pi:4:2);

writeln(5*5*pi:4:2);

readln;

end.

cái này thì mình ko chắc lắm!

Program Chu_nhat

uses crt;

Var x, y, S;

Begin Write(“Nhap chieu dai:”);

readln(x);

Write(“Nhap chieu rong:”);

readln(y);

S := x*y;

Writeln(“Dien tich hinh chu nhat la:”,S)

readln;

end.

30 tháng 10 2021

Program HOC24;

var x,y: integer;

s: longint;

begin

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

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

S:=x;

S:=s*y;

write('Dien tich dien hinh chu nhat la: ',s);

readln

end.

13 tháng 1 2022

Program Chu_nhat

uses crt;

Var x, y, S;

Begin Write(“Nhap chieu dai:”);

readln(x);

Write(“Nhap chieu rong:”);

readln(y);

S := x*y;

Writeln(“Dien h hinh chu nhat la:”,S)

readln;

end.

24 tháng 1 2022

easy

sdf

27 tháng 12 2021

uses crt;

var a:integer;

begin

clrscr;

readln(a);

writeln(a*4);

writeln(a*a);

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.