Em hiểu thế nào về vai trò “tổ chức và truy cập thông tin"
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.
NM
2 tháng 11 2019
var a,b,x,s: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('x='); readln(x);
s:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));
write('dien tich tam giac AMN la:',s);
readln;
end.
MT
1
11 tháng 11 2019
Bước 1: xác định bài toán
-input: dãy B1,B2,B3,...,Bn
-output:số các số chia hết cho 5
Bước 2: Viết thuật toán
-bước 1: nhập dãy số
-bước 2: dem:=0; i:=1;
-bước 3: nếu b[i] chia hết cho 5 thì dem:=dem+1;
-bước 4: i:=i+1;
-bước 5: nếu i≤n thì quay lại bước 3
-bước 6: xuất dem;
-bước 7:kết thúc
Bước 3: viết chương trình
uses crt;
var n,i,dem:integer;
b:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('b[',i,']=');readln(b[i]);
end;
{------------xuat-day-----------------}
for i:=1 to n do
write(b[i]:4);
{------------xu-ly------------------}
writeln;
dem:=0;
i:=1;
while i<=n do
begin
if b[i] mod 5=0 then inc(dem);
i:=i+1;
end;
writeln('so cac so chia het cho 5 trong day la: ',dem);
readln;
end.
30 tháng 10 2019
Bạn phải cho đề mình mới hiểu thuật toán được.
Theo mình điểm sai là ý b. Vì chưa có điều kiện đã gán a[i]=min và i lại gán = a[i]
30 tháng 10 2019
B1: nhập cạnh hình vuông
b2: S=cạnh* cạnh
B3: xuất diện tích, kết thúc
DC
30 tháng 10 2019
program dientich;
uses crt;
var S,a:integer;
begin
writeln('nhap a');
readln(a);
S:=a*a;
writeln('ketqua',S);
readln;
end.
MD
1
DC
29 tháng 10 2019
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | /* Created by nguyenvanhieu.vn */ /* Tinh tong tat ca cac uoc so cua so nguyen duong n */ #include <iostream> using namespace std; int main(){ int n; do{ cin >> n; if(n <= 0){ cout << "\nNhap lai n = "; } }while(n <= 0); int sum = 0; for(int i = 1;i <= n;i++){ if(n % i == 0){ sum += i; } } cout << "\nSum = " << sum << '\n'; } |
Output:
| 0 1 2 3 | Nhap n = 24 Sum = 60 |
15 tháng 11 2019
bài này dễ ẹt à
uses crt;
var a:array[1..100]of integer;
i,n,dem,k:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------xuat-day----------------------}
for i:=1 to n do
write(a[i]:4);
{------------xu-ly----------------------------------}
writeln;
write('nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
if dem=0 then writeln('khong co so ',k,' trong day')
else writeln('so ',k,' xuat hien ',dem,' lan trong day');
readln;
end.