Mn giúp em
Viết ct tạp 1 Hcn rỗng bằng dấu "*" với chiều dài và chiều rộng dc nhập từ bàn phím
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.
Những câu hỏi liên quan
21 tháng 2 2022
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n,i,j,m;
int main()
{
cin>>n>>m;
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
{
if (i==1 || j==1|| i==n|| j==m) cout<<"*";
else cout<<" ";
}
cout<<endl;
}
return 0;
}
21 tháng 2 2022
#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;
}
22 tháng 3 2023
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}")
4 tháng 5 2021
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
4 tháng 5 2021
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
K
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.
NH
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.
