uses crt;
var a,b,ucln:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then ucln:=a
else begin
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
end;
writeln('UCLN=',ucln);
readln;
end.
a)2KClO3−−>2KCl+3O22KClO3−−>2KCl+3O2
nKClO3=24,5122,5=0,2(mol)nKClO3=24,5122,5=0,2(mol)
nO2=32nKClO3=0,3(mol)nO2=32nKClO3=0,3(mol)
VO2=0,3.22,4=6,72(l)VO2=0,3.22,4=6,72(l)
b)nKCl=nKClO3=0,2(mol)nKCl=nKClO3=0,2(mol)
mKCl=0,2.74,5=14,9(g)mKCl=0,2.74,5=14,9(g)
c)2Mg+O2−−>2MgO2Mg+O2−−>2MgO
nMg=2nO2=0,6(mol)nMg=2nO2=0,6(mol)
mMg=0,6.24=14,4(g)