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.

26 tháng 9 2021

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.π.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π.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;

26 tháng 9 2021

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.π.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π.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;

13 tháng 1 2022

Var a,b:integer;

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t,dem;

int main()

{

cin>>n;

dem=0;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0 && x>10) t+=x;

if (x%2!=0 || x<100) dem++;

}

cout<<t<<" "<<dem;

return 0;

}

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

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

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

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

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

writeln(s:4:2);

readln;

end.

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.

23 tháng 10 2018

Đáp án đúng : A