Ответ:
Ответ - в прилагаемом файле.
Объяснение:
Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
1. (x>=-1) and (x <=1)
2. (x<-1) and (x>1)
3. (x<0) and (y<0)
4. (x<0) or (y<0)
5. (x>0) and (y>0)
6. sign(x)<>sign(y)
7. x*y*z<>0
8.x*y*z=0
9. (x<>0) or (y<>0) or (z<>0);
На экран выведет :a=1 b=11 поэтому ответ:1,11