Bạn Khoa đến nhà bạn Vinh để chơi game cùng. Sau khi chơi được 1 lúc, máy tính của bạn Vinh hiện dòng chữ:"Tính khối lượng quặng hematit chứa 60% Fe2O3 cần thiết để sản xuất 100 Tấn gang chứa 95,29%Fe. Biết hiệu suất của quá trình là 90,052%. Sau đó viết chương trình pascal nhập kết quả khối lượng hematit đã tính được. Tiếp đến, chạy chương trình từ 1 đến kết quả ở trên (làm tròn đến hàng đơn vị). Sau nữa, đếm xem có bao nhiêu số chia hết cho 7 và không chia hết cho 7. Đem 2 kết quả mới nhất bình phương lên rồi tính căn bậc 2 của tích và tổng 2 số chia hết cho7 và không chia hết cho 7. Xuất kết quả ra màn hình với kết quả được làm tròn đến hàng đơn vị. Rồi nhập mật khẩu để mở máy lại". Em hãy giúp bạn Vinh mở máy nhé

$\text{1 tấn = 1000kg}$

$\text{Trong 1 tấn gang chứa 95,29 %Fe có :}$

$\text{mFe = $\frac{1000.95,29}{100}$ = 952,9 kg}$

$\text{Phương trình phản ứng :}$

$\text{Fe2O3  +  3CO  →  2Fe  +  3CO2}$

$\text{160kg Fe2O3 tạo ra 112 kg Fe}$

$\text{x kg Fe2O3 tạo ra 952,9  kg Fe}$

$\text{→ x = $\frac{160.952,9}{112}$ = 1511,67 kg}$

$\text{Hiệu suất đạt 80% nên thực tế khối lượng Fe2O3 cần dùng :}$

$\text{$\frac{1511,67.100}{60}$ = 2519 kg}$

$\text{* Viết chương trình :}$

$\text{program sksk;}$
$\text{uses crt;}$
$\text{var  s : real;}$
    $\text{dem1, dem2,  i  : integer;}$
$\text{begin}$
$\text{clrscr;}$
$\text{dem1 := 0;}$
$\text{dem2 := 0;}$
$\text{for i := 1 to 2519 do }$
$\text{if i mod 7 = 0 then dem1 := dem1 + 1}$
$\text{else dem2 := dem2 + 1;}$
$\text{s := sqrt((sqr(dem1) + sqr(dem2)) + (sqr(dem1) * sqr(dem2)));}$
$\text{writeln(' mat khau mo may la :', s: 8: 0 );}$
$\text{readln}$
$\text{end.}$