Những câu hỏi liên quan
Minh Quyết
Xem chi tiết
Biên Vi
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 4 2021 lúc 21:16

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)
Dandelion
Xem chi tiết
★゚°☆ Trung_Phan☆° ゚★
25 tháng 2 2021 lúc 21:41

undefined

Theo C++ nhé bạn

Codeblacks 

Bình luận (1)
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 21:51

uses crt;

var a:array[1..10]of integer;

i,n,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

writeln('Day so vua nhap la: ');

for i:=1 to 10 do 

  write(a[i]:4);

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln;

writeln('So luong so chan la: ',dem);

readln;

end.

Bình luận (1)
mai ánh
Xem chi tiết
Hải Anh
28 tháng 4 2021 lúc 19:06

undefined

Bình luận (0)
Đỗ Thanh Hải
28 tháng 4 2021 lúc 17:56

a) 2Na + 2C2H5OH \(\rightarrow\) 2C2H5ONa + H2

b) nNa = 0,23 : 23 = 0,01 mol

Theo pt: nH2 = \(\dfrac{1}{2}nNa=0,005mol\)

=> V H2 = 0,005.22,4 = 0,0112 lít

Bình luận (0)
Đỗ Trọng TÍn
Xem chi tiết
Kiều Vũ Linh
29 tháng 4 2023 lúc 7:52

Câu 3:

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

Bình luận (0)
Kiều Vũ Linh
29 tháng 4 2023 lúc 7:56

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

Bình luận (1)
Hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 3 2021 lúc 21:36

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A'

writeln('Xau sau khi doi la: ',s);

readln;

end.

Bình luận (0)
nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 10 2021 lúc 0:11

Câu 3: 

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bình luận (0)
nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 10 2021 lúc 0:10

Câu 3: 

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bình luận (0)
nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 10 2021 lúc 0:11

Câu 3:

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bình luận (0)