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.
uses crt;
var a,b,cv,s:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
cv:=(a+b)*2;
s:=a*b;
writeln('chu vi cua hinh chu nhat do la:',cv);
write('dien tich cua hinh chu nhat do la:',s);
readln;
end.
Bài 5:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<(a+b)*2;
return 0;
}
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;
}
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
uses crt;
var t,n,m:longint;
//chuongtrinhcon
function gt(k:longint):longint;
var i,a:integer;
begin
a:=1;
for i:=1 to k do
a:=a*i;
gt:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n,m);
writeln(gt(n)+gt(m);
readln;
end.
a) Input: Bán kính r
Output: Diện tích S, Thể tích V
b) Thuật toán
- Nhập r từ bàn phím
- Diện tích bề mặt hình cầu tính theo : 4.π.r24.π.r2 ( Tức là gán biến diện tích với công thức bên)
- Thể tích hình cầu tính theo 43π.r343π.r3 (Tức là gán biến thể tích với công thức bên)
c) Khai báo tất cả biến tham gia với kiểu biến là Real
Vì diện tích và thể tích đều có thể có giá trị là số thập phân
Khai báo:
const pi = 3.14;
r,S,V: real;
long long a,b,dt;
Var a,b:integer;