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.

15 tháng 1 2022

TK

program bt;
uses crt;
var a,b,S,P:real;
begin
clrscr;
writeln('hay nhap chieu dai hinh chu nhat: ');readln(a);
writeln('hay nhap chieu rong hinh chu nhat: ');readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('dien tich hinh chu nhat la: ',S);
writeln('chu vi hinh chu nhat la: ',P);
readln;
end.

15 tháng 1 2022

giải bằng phần mềm python dc ko bạn ?

 

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.          

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.

#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;

}

1 tháng 3 2023

câu 1 

program hieu_thuong;

uses crt;

var a,b,h,t:real;

begin

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

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

if a>=b then h:=a-b else h:=b-a;

t:=a/b;

writeln('hieu cua hai so ',a,'',b,' la ',h);

writeln('thuong cua hai so ',a,'',b,' la ',t);

readln;

end.

câu 2

program chuvi_dientich;

uses crt;

var cv,dt,d,r:real;

begin

write('nhap chieu dai d:');readln(d);

write('nhap chieu rong r:');readln(r);

cv:=( d + r ) * 2 ;

dt:= d * r ;

writeln('chu vi thua ruong la : ',cv);

writeln('dien tich thua ruong la : ',dt);

readln;

end.

2 tháng 3 2023

h,t là sao vậy ạ ?

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:

 

5 tháng 11 2021

uses crt;

var r,cd,cr,s,p: real;

begin

clrscr;

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

cd:=r*2*3.14;

cr:=1/3*cd;

s:=cd*cr;

p:=(cd+cr)*2;

writeln('Dien tich la: ',s);

writeln('Chu vi la: ',p);

readln;

end.

19 tháng 3 2021

Mình cần gấp!! Cảm ơn ạ

Câu 1: 

a) (x+y)/(x-y)

b) sqr(b)-4*a*c;

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

writeln('Chu vi la: ',(a+b)*2);

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

readln;

end.

Câu 3: 

Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình. 

Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;

Ví dụ: var a:integer;