Trong một hợp chất có 2 loại nguyên tử là sắt và clo. Phân tử hợp chất nặng hơn phân tử hiđro 63,5 lần. Cho biết số nguyên tử trong mỗi loại phân tử?

Các câu hỏi liên quan

Câu 1: a) Viết cú pháp của câu lệnh lặp với số lần biết trước? b) Dịch đoạn chương trình sau: Program Giai thua; Var n, i : interger; P: Longint; Begin Write (‘Nhap so n = ’); Readln(n); P: = 1; For i := 1 to n do P := P*i; Write(‘Tich cua ’, n ,‘ so tu nhien dau tien la ’,P); Readln; End. C) chạy chương trình với n = 5 Câu 2: a) Viết cú pháp của câu lệnh lặp với số lần chưa biết trước? b) Dịch chương trình sau: Program KT; Var n,i:integer; Begin Write('Nhap vao mot so nguyen: '); readln(n); If n<=1 Then writeln('N khong la số nguyên tố') Else Begin i:=2; While (n mod i<>0) do i:=i+1; If i=n Then writeln(N,' la so nguyen to') Else writeln(n,' khong phai la so nguyen to'); End; c) Chạy chương trình trên với n = 9 và n = 7. Câu 3: a) Viết cú pháp khai bảo biến mảng? b) Khai vào 3 mảng thực mỗi mảng gồm 50 phần tử và 2 biến nguyên? c) Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 5, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu? Câu 4: Tìm và sửa lỗi sai trong đoạn chương trình sau? Program tinh so cac so duong; Uses crt Var i,A, dem, n: integer; Begin. Clrscr; DEM:=0; Writeln(‘Nhap vao so n); Readln(‘n’); For I =1 to n do begin writeln(‘nhap vao so thu’,i); readln(A); if A>0 then dem:=dem+1; Writeln(‘So cac so duong la’,dem); Readln; End. Câu 5: : Hãy tìm hiểu đoạn chương trình sau: i:=3; j:=2; k:=1; while i <= 6 do i:=i+1; j:=j+1; k:=k+j – i; Sau khi thực hiện đoạn chương trình trên, lệnh writeln in ra màn hình giá trị của i,j,k lần lượt là bao nhiêu?