Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

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

c= a+b;

write('Tong hai so a b la:',c);

end.

lập trình cơ mà

program tamgiac;

int a, b, c :Real;

begin

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

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

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

if (a+b>c and b+c>a and a+c>b) then

write('Ba canh a,b,c là ba canh cua tam giac');

else 

write('Ba cạnh khong phai ba canh cua tam giac');

end.

là c++ hay là pascal

ta có pthh: 3Fe + 2O₂ → Fe₃O₄

Ta có nFe=\(\dfrac{m}{M}\)=\(\dfrac{11,2}{56}\)=0,2(mol)

          nO₂=2nFe=2*\(\dfrac{0,2}{3}\)=\(\dfrac{2}{15}\)(mol)

          VO₂=n*M=16*\(\dfrac{2}{15}\)=2,13(l)

          nFe₃O₄=\(\dfrac{0,2}{2}\)=0,1(mol)

          mFe₃O₄=\(\dfrac{0,1}{168+64}\)=23,2(g)

a, T=25;

     j=25;

b,while T<30 do begin

   j:=j+5;

   T:=T+j;

   end;

var i,n:integer;

a:array[-1000..1000] of integer;

begin

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

if a[i]>0 then 

write(a[i]);

readln;

end.

sao lại có nhi hay tên vào đây

bỏ tên thay bằng số ấy