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.

21 tháng 10 2019

Program Hinh_hop_chu_nhat;

Uses crt;

Var d,r,h,sxq,stp,v:real;

Begin

clrscr;

Write('Nhap chieu dai:'); Readln(d);

Write('Nhap chieu rong:'); Readln(r);

Write('Nhap chieu cao:'); Readln(h);

sxq:=(d*r)*2*h;

stp:=sxq+2*d*r;

v=d*r*h;

Writeln('Dien tich xung quanh la:',sxq);

Writeln('Dien tich toan phan:',stp);

Writeln('The tich la:',v);

Readln

End.

3 tháng 10 2019

Đề bạn cần hỏi gì ?

19 tháng 12 2019

Câu 1

uses

crt;

var a : integer;

begin

clrscr;

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

if a mod 2 = 0 then writeln('la so chan ') else

writeln('la so le ');

readln;

end.

19 tháng 12 2019

1:

uses crt;

var n:integer;

begin

clrscr;

write('n='); readln(n);

if n>=0 then begin

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

end

else writeln('vui long nhap so tu nhien');

readln;

end.

2:

uses crt;

var d,r,cv,dt:integer;

begin

clrscr;

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

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

if (d>0) and (r>0) and (d>=r) then

begin

cv:=(d+r)*2;

dt:=d*r;

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

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

end

else writeln('vui long nhap lai');

readln;

end.

16 tháng 12 2018

a) var a,b,S : real ;

begin

write('nhap chieu dai'); readln(a);

write('nhap chieu rong'); readln(b);

S:=a*b ;

write('dien tich la',S);

readln

end.

b) var r,S : real ;

begin

write('nhap ban kinh'); readln(r);

S:=r*r*3.14 ;

write('dien tich la',S);

readln

end.

17 tháng 12 2018

vao 1 chuong trinh ban oi

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 ạ ?

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.

23 tháng 12 2020

Hình chữ nhật ở đâu vậy bạn?

19 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}

1 tháng 10 2018

s:real;

a,h:Integer;

c:Integer;

20 tháng 11 2021

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

19 tháng 10 2021

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,cv,dt;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;

return 0;

}