Программа имеет вид:
program E20;
const NA=6.022E20;
var N: integer; M, R, P, V,
K: real;
BEGIN
writeln (’зная постоянную Авогадро, плотность P данного вещества’);
writeln (’и его молярную массу M, можно найти число молекул в’);
writeln (’1. в единице массы вещества’);
writeln (’2. в теле массой R’);
writeln (’3. в единице объема’);
writeln (’4. в теле объемом V’);
write (’введите номер решаемой задачи’);
readln (N);
write (’введите исходные данные: M = ’);
readln (M);
case N of
1: K: = NA/M;
2: begin
write (’R = ’);
readln (R);
K: = NA*R/M;
end;
3: begin
write (’плотность вещества P= ’);
readln (P);
write (’V = ’);
readln (V);
K: = NA*P*V/M;
end;
4: begin
write (’плотность вещества P = ’);
readln (P);
K: = NA*P/V;
end;
end;
write (’число молекул K = ’, K’);
END.
03.11.2013
Цыбикова Т.Р.