Заполните массив случайными числами в диапазоне 200..1000 и подсчитайте
отдельно число чётных элементов. ПИТОН

Зная химическую формулу, можно вычислить массовую долю химических элементов в веществе. Массовая доля элемента в вещества обозначается греч. буквой «омега» - ωЭ/В и рассчитывается по формуле:

где k – число атомов этого элемента в молекуле.

Задача 1

Какова массовая доля водорода и кислорода в воде (Н2О)?

1) Вычисляем относительную молекулярную массу воды:

Mr(Н2О) = 2*Аr(Н) + 1*Аr(О) = 2*1 + 1* 16 = 18

2) Вычисляем массовую долю водорода в воде:

3) Вычисляем массовую долю кислорода в воде. Так как в состав воды входят атомы только двух химических элементов, массовая доля кислорода будет равна:

Рис. 1. Оформление решения задачи 1

Задача 2

Рассчитайте массовую долю элементов в веществе H3PO4.

1) Вычисляем относительную молекулярную массу вещества:

Mr(Н3РО4) = 3*Аr(Н) + 1*Аr(Р) + 4*Аr(О)= 3*1 + 1* 31 +4*16 = 98

2) Вычисляем массовую долю водорода в веществе:

3) Вычисляем массовую долю фосфора в веществе:

4) Вычисляем массовую долю кислорода в веществе:

Объяснение:

// PascalABC.NET 3.0, сборка 1128
var
  i,j,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
    for j:=1 to f[i,2] do Write(f[i,1],' ');
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 37534
2 7 7 383